使用facet_wrap和ggplot2在每个构面内绘制整个数据

我正在尝试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)