r - ggplot : Generate facet grid plot with multiple series

Question

我有以下数据框:

  Quarter        x        y         p         q
1  2001   8.714392 8.714621 3.3648435 3.3140090
2  2002   8.671171 8.671064 0.9282508 0.9034387
3  2003   8.688478 8.697413 6.2295996 8.4379698
4  2004   8.685339 8.686349 3.7520135 3.5278024

我的目标是生成一个分面图，其中 x 和 y 列在分面的一个图中，而 p,q 一起出现在另一个图中，而不是 4 个分面。

如果我执行以下操作:

x.df.melt <- melt(x.df[,c('Quarter','x','y','p','q')],id.vars=1)
ggplot(x.df.melt, aes(Quarter, value, col=variable, group=1)) + geom_line()+
  facet_grid(variable~., scale='free_y') +
  scale_color_discrete(breaks=c('x','y','p','q'))

我在 4 个不同方面的所有四个系列，但我如何将 x,y 组合在一起，而 p,q 组合在一起。最好没有传说。

Answer 1

一个想法是创建一个新的分组变量:

x.df.melt$var <- ifelse(x.df.melt$variable == "x" | x.df.melt$variable == "y", "A", "B")

您可以在使用 variable 的同时将其用于刻面分组:

ggplot(x.df.melt, aes(Quarter, value, col=variable, group=variable)) + geom_line()+
  facet_grid(var~., scale='free_y') +
  scale_color_discrete(breaks=c('x','y','p','q'), guide = F)