facet_grid中的不同Plottypes

Question

再次面对一个复杂的ggplot。我想使用构面网格在一个图中绘制不同的绘图类型。

我希望我可以使用以下示例明确指出： 我想制作一个类似于第一张图的情节，但上图应该看起来像第二张图。 我已经使用子集函数找到了这个技巧，但我不能将垂直线添加到一个图中，更不用说两个或三个（或指定颜色）。

CODE：

a <- rnorm(100)
b <- rnorm(100,8,1)
c <- rep(c(0,1),50)


dfr <- data.frame(a=a,b=b,c=c,d=seq(1:100))
dfr_melt <- melt(dfr,id.vars="d")

#I want only two grids, not three
ggplot(dfr_melt,aes(x=d,y=value)) + facet_grid(variable~.,scales="free")+
geom_line(subset=.(variable=="a")) + geom_line(subset=.(variable=="b"))

#Upper plot should look like this
ggplot(dfr,aes(x=d,y=a)) + geom_line() + geom_line(aes(y=c,color="c"))+
geom_hline(aes(yintercept=1),linetype="dashed")+
geom_hline(aes(yintercept=-2),linetype="dashed")

Answer 1

如果我正确理解您的问题，您只需要variable列dfr，以便让分面工作：

dfr$variable = "a"
ggplot(subset(dfr_melt, variable=="a"),aes(x=d,y=value)) +  
  facet_grid(variable~.,scales="free")+
  geom_line(data=subset(dfr_melt,variable=="a"))  + 
  geom_line(data=subset(dfr_melt, variable=="b")) + 
  geom_line(data=dfr, aes(y=c, colour=factor(c))) + 
  geom_hline(aes(yintercept=1),linetype="dashed")+
  geom_hline(aes(yintercept=-2),linetype="dashed")

请注意，我的情节没有zig-zig线，这是因为我改变了：

  #This is almost certainly not what you want
  geom_line(data=dfr, aes(y=c, colour="c"))

到

  #I made c a factor since it only takes the values 0 or 1
  geom_line(data=dfr, aes(y=c, colour=factor(c)))
  ##Alternatively, you could have
  geom_line(data=dfr, aes(y=c), colour="red") #or
  geom_line(data=dfr, aes(y=c, colour=c)) #or

Answer 2

据我所知，您不能使用facet.grid（）在一个图中放置多个绘图类型。据我所知，你的两个选择是

• 将空数据放在第一个方面，因此这些行是'那里'但没有显示，或

• 使用视口将多个图组合成一个。

我认为第二种解决方案更为通用，因此我所做的就是：

#name each of your plots
p2 <- ggplot(subset(dfr_melt, variable=="a"),aes(x=d,y=value)) + facet_grid(variable~.,scales="free")+
  geom_line(subset=.(variable=="a")) + geom_line(subset=.(variable=="b"))

#Upper plot should look like this
p1 <- ggplot(dfr,aes(x=d,y=a)) + geom_line() + geom_line(aes(y=c,color="c"))+
  geom_hline(aes(yintercept=1),linetype="dashed")+
  geom_hline(aes(yintercept=-2),linetype="dashed")

#From Wickham ggplot2, p154
vplayout <- function(x,y) {
  viewport(layout.pos.row=x, layout.pos.col=y)
}

require(grid)
png("myplot.png", width = 600, height = 300) #or use a different device, e.g. quartz for onscreen display on a mac
grid.newpage()
pushViewport(viewport(layout=grid.layout(2, 1)))
print(p1, vp=vplayout(1, 1))
print(p2, vp=vplayout(2, 1))
dev.off()

你可能需要摆弄一下才能让它们完全正确排列。关闭上图的刻面，并将下图中的图例移到底部，应该可以解决问题。