小组轴GGPLOT2相似到Excel数据透视图(Subgroup axes ggplot2 simi

我想情节个月，年为分组与GGPLOT2的图表。 也就是说，一些看起来是这样的：

类似的问题得到回答在这里 ，但我希望有一个避免硬编码轴标签更好的办法。

用于数据帧将R代码如下：

set.seed(100)
df = data.frame(       Year = rep(c(rep(2013, 12), rep(2014, 9)), 2)
                ,     Month = rep(rep(month.abb, 2)[1:21], 2)
                , Condition = rep(c("A", "B"), each=21)
                ,     Value = runif(42))

作为奖励，我希望了解如何通过一年没有引入新的变量绘制平滑总数（这是可能的？）。 如果我使用dplyr来summarise和group_by年和月，该月的顺序不会保留。

请注意，现在一个月开始于四月：

group_by(df, Year, Month) %>% summarise(total = sum(Value)) %>% head
Source: local data frame [6 x 3]
Groups: Year

  Year Month     total
1 2013   Apr 0.4764846
2 2013   Aug 0.9194172
3 2013   Dec 1.2308575
4 2013   Feb 0.7960212
5 2013   Jan 1.0185700
6 2013   Jul 1.6943562

Answer 1:

尝试这个，

df$Month <- factor(df$Month, levels=month.abb)

p <- ggplot(df, aes(Month, Value, colour=Condition, group=Condition))+
  facet_grid(.~Year) + geom_line() + theme_minimal() 

library(gtable)
g <- ggplotGrob(p)
g2 <- g[-3,] %>% 
  gtable_add_rows(heights = g$heights[3], nrow(g)-3) %>%
  gtable_add_grob(g[3,], t = nrow(g)-2, l=1, r=ncol(g))

grid.newpage()
grid.draw(g2)

文章来源: Subgroup axes ggplot2 similar to Excel PivotChart