r - 如何在ggplot2中为grid.layout图添加标题？

Question

This question already has answers here:

R: Grid layout title

(2个答案)


4年前关闭。




我正在使用grid.layout()函数在一个图中布置多个图。但是，我不知道如何为整个图形添加标题(在图形的顶部)？

有人知道这一点并且可以帮助我吗？非常感谢!

最佳答案

我个人喜欢github上cowplot维护人员提供的解决方案:

做两个情节

p1 <- ggplot(mtcars, aes(x=disp, y=mpg)) + geom_point(colour = "blue") + background_grid(minor='none')
p2 <- ggplot(mtcars, aes(x=hp, y=mpg)) + geom_point(colour = "green") + background_grid(minor='none')

使用 cowplot::plot_grid组合图

p <- plot_grid(p1, p2, labels=c('A', 'B'))

冠名

title <- ggdraw() + draw_label("MPG declines with displacement and horsepower", fontface='bold')

添加标题

plot_grid(title, p, ncol=1, rel_heights=c(0.1, 1)) # rel_heights values control title margins

关于r - 如何在ggplot2中为grid.layout图添加标题？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/37052059/

上一篇：amazon-s3 - s3 存储桶的自定义域？

下一篇：ios-simulator - TVMLKitErrorDomain 错误 3 消息

Answer 1

我个人喜欢github上cowplot维护人员提供的解决方案:

做两个情节

p1 <- ggplot(mtcars, aes(x=disp, y=mpg)) + geom_point(colour = "blue") + background_grid(minor='none')
p2 <- ggplot(mtcars, aes(x=hp, y=mpg)) + geom_point(colour = "green") + background_grid(minor='none')

使用 cowplot::plot_grid组合图

p <- plot_grid(p1, p2, labels=c('A', 'B'))

冠名

title <- ggdraw() + draw_label("MPG declines with displacement and horsepower", fontface='bold')

添加标题

plot_grid(title, p, ncol=1, rel_heights=c(0.1, 1)) # rel_heights values control title margins