修改“微软热图调整关闭

我发现从下面的链接非常有用和复杂的数字，但显示每年的收盘价每年4年，但我的目标数字是说30年的每日收盘价，所以它太长，应该是太乱了读者。修改“微软热图调整关闭

相反，我要变换的每日数据为季度（Y轴）连续6年（X轴），但我不能改变今年6年在以下方面

facet_wrap(~ year, ncol = 1)

，因为我是ggplot2的新手。

有人可以看看，给我解决方案吗？

非常感谢

来源

2014-09-28 Jung Soo Park

的facet_wrap给你每年的自留地。从你的描述，你想要一个单一的情节，就像

# tranforming data from linked question to get quarters (not perfect) 
require(dplyr) 
stock.sum <- stock.data %>% filter(wday == 1, week %% 13 == 1, week < 52) %>% 
    mutate(quarter = (week %/% 13) + 1) 

# plot! year on x, quarter on y (seems backwards to me) 
ggplot(stock.sum, aes(x = factor(year), y = quarter, fill = Adj.Close)) + 
    geom_tile(colour = "white") + 
    scale_fill_gradientn(colours = c("#D61818","#FFAE63","#FFFFBD","#B5E384")) 
# just leave out the facet_wrap()

来源

2014-09-28 09:45:15 Gregor

这绝对是一个很大的改进。然而，原始代码日期的日期是从2006年开始的，但我的目标是比今天晚了30年。如果我们假设x轴的10年频率，那么我们在最终数字（或3层* 4季* 10年）上将有3层y轴。请帮助我。 – 2014-09-28 10:33:48

我看到的唯一数据是来自链接问题的数据。如果您的数据看起来不同，请发布！至少发布'dput（head（my_data））'。 – Gregor 2014-09-28 16:58:35

@JungSooPark我不明白，如果你的问题是改变数据和绘图，或只是绘图。当你说你有“三层”时，我不知道“楼层”是什么。共享数据将有所帮助。 – Gregor 2014-09-28 16:59:13

修改“微软热图调整关闭

回答

相关问题