一个图中的两个ggplots，靠近在一起绘制

Question

我希望用geom_tile绘制一个填充的轮廓，并在其下方直接绘制相应的原始轨迹，两者之间没有空格。当使用gridExtra或cowplot时，我可以将它们关闭，但不能将原始轨迹的顶部放在填充轮廓的x轴上。以下是详细信息：

数据

library(reshape2)
library(ggplot2)
volcano=volcano
volcano3d=melt(volcano)
names(volcano3d) <- c("x", "y", "z")

图解

fill=ggplot(volcano3d,aes(x,y,z))+geom_tile(aes(fill=z))
raw=ggplot(volcano3d,aes(x,y))+geom_line()+theme(aspect.ratio=1/20)

我的尝试

library(gridExtra)
grid.arrange(fill,raw,heights=c(5,1)

虽然他们非常接近，但我想做一些事情：

1. 向上移动底部迹线，使底部迹线的顶部接触等高线图的x轴。
2. 对齐两个轴，使0,25,50,75全部对齐。在牛皮图中，您可以使用对齐参数以便很好，但我无法弄清楚如何将它们彼此靠近。

理想情节

这是来自不同的数据集，但它是布局的一个很好的例子。

想法？

Answer 1

除了图例在绘图区域内之外，这使您接近所需的内容。我使用theme（plot.margin）来调整绘图周围的顶部和底部间距，并使轴对齐。 expand = 0允许数据扩展到绘图的边缘（如示例中所示）。创建每个绘图的凹凸并将宽度设置为相等允许您在arrangeGrob中控制高度和宽度。

library(reshape2)
library(ggplot2)
library(gridExtra)
library(grid)
volcano=volcano
volcano3d=melt(volcano)
names(volcano3d) <- c("x", "y", "z")

fill=ggplot(volcano3d,aes(x,y,z))+geom_tile(aes(fill=z)) + 
theme(axis.text.x = element_blank(),
    legend.position=c(1,1), 
    legend.justification=c(1, 1), 
    axis.title.x = element_blank(),axis.ticks=element_blank(),
    plot.margin = unit(c(1,1,0,1), "cm")) +
scale_x_continuous(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0)) 
raw=ggplot(volcano3d,aes(x,y))+geom_line()+
theme(aspect.ratio=1/20,
    plot.margin = unit(c(-1.2,1,1,1), "cm")) +
 scale_x_continuous(expand = c(0, 0)) 

gA <- ggplotGrob(fill)
gB <- ggplotGrob(raw)
gA$widths <- gB$widths
grid.newpage()
grid.draw(arrangeGrob(gA,gB, heights = c(4/5, 1/5)) )

Answer 2

可以将图例保留在图表之外。在两个gtables中，gA还有一个额外的列可以作为传说。因此，请向gB添加一个与gA图例宽度相同的列。

另外，我会从gtables中删除相关的上下边距行。

library(reshape2)
library(ggplot2)
library(gridExtra)
library(gtable)
library(grid)
volcano=volcano
volcano3d=melt(volcano)
names(volcano3d) <- c("x", "y", "z")

fill = ggplot(volcano3d, aes(x, y, z)) +
   geom_tile(aes(fill=z)) + 
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) 

raw = ggplot(volcano3d,aes(x,y)) +
  geom_line() +
  scale_x_continuous(expand = c(0, 0)) 

gA <- ggplotGrob(fill)
gB <- ggplotGrob(raw)

ga = gA[-c(10:7), ]  # Remove bottom rows from gA
gb = gB[-c(1:5), ]   # Remove top rows from gB

# Add extra column to gB gtable
gb = gtable_add_cols(gb, ga$widths[7:8], 6)

ga$widths <- gb$widths
grid.newpage()
grid.draw(arrangeGrob(ga,gb, heights = c(4/5, 1/5)) )