当两个图表具有相同的X轴时，在x轴上对齐双线图和条形图。 GGPLOT2

Question

我今天已经尝试了很长一段时间，但仍然无法通过X轴将两种不同的图表类型对齐在一起。当两个图表具有相同的X轴时，我只需要条形图顶部的双线图表。

下面的数据以及我到目前为止编写的代码以及一些不同的尝试。

我的数据：

Date <- c("2015-07-22", "2015-07-23", "2015-07-24", "2015-07-25", "2015-07-26", "2015-07-27", "2015-07-28", "2015-07-29", "2015-07-30", "2015-07-31", "2015-08-01", "2015-08-02", "2015-08-03", "2015-08-04", "2015-08-05")

Mean_temp12z <- c(66.6, 64.6, 67.6, 69.6, 72.0, 71.8, 73.0, 72.2, 72.8, 71.8, 69.4, 64.2, 61.2, 62.0, 63.4)

Mean_temp0z <- c(62.8, 65.0, 67.4, 71.6, 72.4, 71.6, 71.0, 71.8, 71.6, 69.6, 69.2, 66.2, 60.6, 63.6, 66.4)  

temp_deltalow <- c( 3.8, -0.4,  0.2, -2.0, -0.4,  0.2,  2.0,  0.4,  1.2,  2.2,  0.2, -2.0,  0.6, -1.6, -3.0)


GFS_low_changes <- data.frame(Date, Mean_temp12z, Mean_temp0z, temp_deltalow)

到目前为止我绘制的是一个双线图，显示的代码如下图所示：

low_line <- ggplot(GFS_low_changes, aes(Date))+ geom_line(aes(y= Mean_temp12z, colour= "Mean_temp12z" ))+ geom_line(aes(y= Mean_temp0z, colour= "Mean_temp0z"))+
  geom_point(aes(y= Mean_temp12z))+ geom_point(aes(y= Mean_temp0z))+
  theme(legend.title= element_text(colour="black", size=12))+
  scale_color_discrete(name="GFS Models")+ labs(y= "Temperature °F")

我还绘制了一个条形图，显示了0z模型和12z模型之间的差值，显示的代码和图片如下：

low_bar <- ggplot(data = GFS_low_changes, aes(x= Date, y = temp_deltalow)) + 
  geom_bar(colour= "black", fill= ifelse(temp_deltalow>0,"red","blue"), stat= "identity", position = "identity") +
  geom_text(aes(label= paste(temp_deltalow, "°F"),hjust= 0.4, vjust= ifelse(temp_deltalow>0,-0.5,1)), size= 5)

因此，在创建了这两个图形的情况下，我想将它们在X轴上与条形图顶部的折线图合并。两者之间的无缝间距是可取的，但我无法让它们接近排队。

我尝试使用gridExtra包中的grid.draw函数，代码如下：

  grid.newpage() 
grid.draw(rbind(ggplotGrob(low_line), ggplotGrob(low_bar), recording= T)) 

但是我收到错误告诉我：错误：ncol（x）== ncol（y）不为TRUE

我还使用grid.arrange来获得更好的结果，但没有接近相同的x轴和两个图表之间的无缝集成。

我想避免在这里运行，但我确实试图融化上面的数据框，只能成功绘制折线图。但是，这方面的任何帮助也非常感谢。

我在尝试期间主要使用此示例：https://gist.github.com/tomhopper/faa24797bb44addeba79

非常感谢您对此问题的任何帮助！

Answer 1

你可以使用gridExtra中的combine()（gtable :: join的修改版本），

library(gridExtra)

g1 <- ggplotGrob(low_line)
g2 <- ggplotGrob(low_bar)
colnames(g1) <- paste0(seq_len(ncol(g1)))
colnames(g2) <- paste0(seq_len(ncol(g2)))

grid.draw(combine(g1, g2, along=2))

使用gtable可以获得相同的结果，但它不太方便，因为i）join有错误（dev版本是固定的），ii）rbind不喜欢用{{比较单位1}}。这就是我现在在gridExtra中复制这些函数的原因。

Answer 2

这将对齐x轴并修复布局。但是，这些数字之间仍然存在差距。

## Specify the xlimits
xlims <- as.Date(c("2015-07-21", "2015-08-06"))

## low_bar as you had it, except the ylimits are adjusted for labels and xlims added
low_bar <- ggplot(data = GFS_low_changes, aes(x= Date, y = temp_deltalow)) + 
  geom_bar(colour= "black", fill= ifelse(temp_deltalow>0,"red","blue"), stat= "identity", position = "identity") +
  geom_text(aes(label= paste(temp_deltalow, "°F"),hjust= 0.4, vjust= ifelse(temp_deltalow>0,-0.5,1)), size= 5) +
  ylim(-4, 5) +
  xlim(xlims)

## low_line, legend is changed and xlims is added
low_line <- ggplot(GFS_low_changes, aes(Date)) +
  geom_line(aes(y= Mean_temp12z, colour= "Mean_temp12z" )) +
  geom_line(aes(y= Mean_temp0z, colour= "Mean_temp0z"))+
  geom_point(aes(y= Mean_temp12z))+
  geom_point(aes(y= Mean_temp0z))+
  theme(legend.title= element_text(colour="black", size=12))+
  scale_color_discrete(name="GFS Models")+ labs(y= "Temperature °F") +
  theme(legend.position = c(0.9,0.8)) +
  xlim(xlims)

## Construct the layout, 2 rows one column
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 1)))
print(low_bar, vp = viewport(layout.pos.row = 2, layout.pos.col=1))
print(low_line, vp = viewport(layout.pos.row = 1, layout.pos.col=1))