r - 具有常见图例的 ggarrange 在 Markdown 中产生额外的空白图

Question

我正在使用 R Notebooks 并且有一个包含一些用于排列直方图的代码的 block 。当我使用一个常见的图例时，它会产生一个额外的空图，在渲染的 html 文件中看起来很糟糕。这种现象在没有共同传说的情况下消失了，但情节看起来很糟糕，因为它们的大小不同。有什么办法可以阻止它产生额外的空图？



以及 block 中使用的代码

 ```{r}

ggarrange(

gghistogram(data, title="MOTIVATION SCORES", x="MOTIVATION", y="..density..", 
add_density=TRUE, add = "median", rug = TRUE, bins=15, color="#69c8ECFF", 
fill="#69c8ECFF") , 


gghistogram(data, title="MOTIVATION BY AGE GROUP", x = "MOTIVATION", 
y="..density..", add_density=TRUE,
          add = "median", rug = TRUE, bins=15,
          color = "AGE_GROUP", fill = "AGE_GROUP",
          palette = c("#69c8ECFF", "#E762D7FF")
          )

, legend = "bottom" 
, common.legend = TRUE

)
```

Answer 1

编辑:如果您将下面的第二个 block 作为 rmarkdown 文档中的代码块运行，它仍会生成额外的空白图。如果您手动运行第二个 block 的每一行(即一次一个)，它只会生成一个所需的图。我认为这仍然算作一个解决方案，因为即使一次运行第一个代码块也会导致额外的空白图。
在 rnotebook 中运行时，这似乎重现了该问题:

p1 = ggplot(mtcars, aes(x = mpg, y = cyl)) +
    geom_point()
p2 = ggplot(mtcars, aes(x = drat, y = vs)) +
    geom_point()
ggarrange(p1, p2, ncol = 2, nrow = 1, common.legend = TRUE, legend = "bottom", labels = c("A", "B", "C"))

相反，如果我分配了 ggarrange反对 p，那么问题就消失了:

p1 = ggplot(mtcars, aes(x = mpg, y = cyl)) +
    geom_point()
p2 = ggplot(mtcars, aes(x = drat, y = vs)) +
    geom_point()
p = ggarrange(p1, p2, ncol = 2, nrow = 1, common.legend = TRUE, legend = "bottom", labels = c("A", "B", "C"))
p

不知道为什么。对我来说非常不满意，但它似乎有效。