使用facet_grid（）子集ggplot2图

Question

我试图在重复测量中获得每组的个体轨迹和拟合轨迹。

以下玩具数据：

set.seed(124)
ID <- factor(rep(1:21, times = 3))
Group <- rep(c("A", "B", "C"), times = 21)
score <- rnorm(63, 25, 3)
session <- rep(c("s1","s2", "s3"), each = 21)

df <- data.frame(ID, Group, session, score)

现在绘制每个个体的三个重复测量的轨迹，并得出整个样本的拟合斜率。

c <- ggplot(df, aes(x = session, y = score, group = ID, colour = ID)) +
            geom_smooth(method = "lm", se = FALSE) + 
            stat_smooth(aes(group = 1), se = FALSE, method = "lm", color = "red")

c

现在我想把这个情节分成三组。您可以通过组对数据帧进行子集并执行三个单独的图表，但是我希望在一个图表中完成所有操作，与上面相同，除了按组分隔。我试过了：

c + facet_grid(.~Group)

但它是空白的。这里缺少一些东西，我不知道它是什么。