在刻面网格中插入一个额外的图，ggplot2

Question

我想以ggplot2分面图格式显示一组参数。其中三个参数来自同一个数据集，可以轻松实现。我现在想在网格中添加第四个绘图，其中的数据集与其他数据集的长度/值完全不同（但仍然与一起查看相关）。

这是我最好的（太可怕了）。有没有办法精确对齐坐标和主题？谢谢

library(ggplot2)

data(mtcars)
data(iris)

a_plot <- ggplot(mtcars, aes(mpg, disp))+
  geom_line()+
  facet_wrap(~cyl,nrow=2,scales='free')+
  theme_bw()

b_plot<- ggplot(iris, aes(Sepal.Length,Petal.Length))+
  geom_line()+
  ggtitle('imposter')+
  theme_bw()

vp <- viewport(width = 0.52, height = 0.5, x = 0.75, y = 0.25)

png("test.png")
print(a_plot)
print(b_plot, vp = vp)
dev.off()][1]][1]

Answer 1

一个建议是在数据中处理这个问题，让情节分面自然地发挥作用。 （我在这里使用dplyr来组合数据集，但这只是为了方便。任何提供一组列来绘制的机制都应该有用。）

library(dplyr)
library(ggplot2)

bind_rows(
  transmute(mtcars, x=mpg         , y=disp        , z=as.character(cyl)),
  transmute(iris,   x=Sepal.Length, y=Petal.Length, z="imposter")
) %>%
  ggplot(aes(x, y)) +
  geom_line() +
  facet_wrap(~ z, nrow = 2, scales = "free") +
  theme_bw()

Answer 2

使用参数plot.margin和panel.spacing来自定义您正在绘制的背景的大小。然后将视口修改为宽度，使其与其他3个图匹配。您可能需要尝试一些时间，但这是可以实现的。

library(ggplot2)
library(grid)

a_plot <- ggplot(mtcars, aes(mpg, disp))+
  geom_line()+
  facet_wrap(~cyl,nrow=2,scales='free')+
  theme_bw()+
  theme(plot.margin = unit(c(0,0.3,0,0), "cm"),
        panel.spacing= unit(1, "cm"))


b_plot<- ggplot(mtcars, aes(mpg,disp))+
  geom_line()+
  ggtitle('imposter')+
  theme_bw()

vp <- viewport(width = 0.49, height = 0.5, x = 0.75, y = 0.25)
print(a_plot)
print(b_plot, vp = vp)