Question

我从下面的链接中发现了非常有用和复杂的数字但是每年显示4年的每日收盘价，但是我的目标数字是30年的每日收盘价，所以它太长了，应该太乱了读者。

相反，我希望将每日数据按季度（在y轴上）连续6年（在x轴上）转换，但我不能在以下方面将年份转换为6年

facet_wrap(~ year, ncol = 1)

因为我是ggplot2的新手。

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

非常感谢

Answer 1

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()

MSFT调整关闭的＆＃34;热图的修改

1 个答案: