r - 使用 facet_wrap 和 ggplot2 在每个方面绘制整个数据

Question

我正在尝试为 facet_wrap 绘制折线图对于每个数据集。我想要的是浅灰色、透明或其他颜色，所有数据集都在背景中。

df <- data.frame(id=rep(letters[1:5], each=10),
                 x=seq(10),
                 y=runif(50))

ggplot(df, aes(x,y, group=id)) + 
  geom_line() + 
  facet_wrap(~ id)

这张图是我得到的多远，但我也希望在每个图中都有其他所有缺失的 4 行...无论如何，我尝试使用 facet_wrap ，我只得到一行的数据。

对于每个方面，我所期望的都是这样的。

ggplot(df, aes(x,y, group=id)) + 
  geom_line() + 
  geom_line(data=df[1:10,], aes(x,y, group=id), size=5)

Answer 1

这是另一种方法:

首先添加一个与 id 相同的新列:

df$id2 <- df$id

然后再添加一个 geom_line基于没有原始 id 列的 df:

ggplot(df, aes(x,y, group=id)) + 
  geom_line(data=df[,2:4], aes(x=x, y=y, group=id2), colour="grey") +
  geom_line() + 
  facet_wrap(~ id)