r - 多个地块并排 - 如何使所有地块具有相同的宽度？

This question already has answers here:

Align multiple plots in ggplot2 when some have legends and others don't

(6 个回答)


3年前关闭。




我只是安排了三个 ggplots，以便它们在保存的 png 中并排出现。因此，我遵循了 this answer 的有用线索。为了更清楚，我只显示最右边情节的图例。从逻辑上讲，由于图例，现在必须为最右边的图指定更大的宽度。使用 scales::arrangeGrob() 我们可以实现这一点，例如c(600, 600, 750) 。

library(ggplot2)
economics$long <- with(economics, ifelse(uempmed > 8.61, 1, 0))
p <- ggplot(economics[economics$date < "1979-01-01", ],
            aes(date, unemploy, color = long)) +
  geom_line() + theme(legend.position="none")
q <- ggplot(economics[economics$date < "1991-01-01", ],
            aes(date, unemploy, color = long)) +
  geom_line() + theme(legend.position="none")
r <- ggplot(economics[economics$date < "2003-01-01", ],
            aes(date, unemploy, color = long)) +
  geom_line()

l <- list(p, q, r)

library(gridExtra)
ggsave("test.png",
       arrangeGrob(grobs = l, nrow = 1, ncol = 3,
                   widths = c(600, 600, 750), heights = NULL,
                   padding = unit(0.5, "line")),
       width = 18, height = 9, units = "cm", dpi = 600,
       scale = 1.5)

我确信通过反复试验我可以调整最右边的图直到它适合。实际的问题是，尽管 600 的值相同，但中间和最左边的图的宽度不匹配，这真的很烦人:



有人知道如何使所有地块的宽度相同吗？

最佳答案

一种可能的解决方案是通过 egg 使用包 @baptise 。

# Using OPs data/plots
# Add aligned plots into a single object
figure <- egg::ggarrange(p, q, r, nrow = 1)
# Save into a pdf
ggsave("~/myStocks.pdf", figure, width = 22, height = 9, units = "cm", dpi = 600)

对齐的结果如下所示:

关于r - 多个地块并排 - 如何使所有地块具有相同的宽度？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/48438014/