向r中的拼接图添加公共xlab

xqk2d5yq 于 2023-01-22 发布在其他

关注(0)|答案(1)|浏览(123)

简单地说，假设我们只能访问plots对象，而不能操作各个p对象，那么如何将一个公共xlab="mpg"添加到plots对象中呢？

**注意：**如果能将xlab添加到this great answer，那就太好了。

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p2 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p3 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p4 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")

(plots = wrap_plots(p1,p2,p3,p4))

r

来源：https://stackoverflow.com/questions/75191285/add-a-common-xlab-to-patchwork-plots-in-r

1条答案

按热度按时间

cwdobuhd1#

一个选项是使用plot_annotation并创建一个title，然后将此标题的位置调整到您的x实验室位置，如下所示：

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p2 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p3 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p4 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")

(plots = wrap_plots(p1,p2,p3,p4)) +
  plot_annotation(title = "xlab") &
  theme(plot.title = element_text(vjust = -110, hjust = 0.50))

创建于2023年1月21日，使用reprex v2.0.2
这也可以使用caption或subtitle来完成。

- 编辑：**

可以像这样组合x和y标签：

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p2 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p3 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p4 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")

(plots = wrap_plots(p1,p2,p3,p4)) +
 plot_annotation(title = "xlab",
                 subtitle = "ylab") &
 theme(plot.title = element_text(vjust = -110, hjust = 0.50),
       plot.subtitle = element_text(vjust = -55, hjust = -0.01, size = 12))

创建于2023年1月21日，使用reprex v2.0.2

赞(0）回复(0）举报 2023-01-22

我来回答

向r中的拼接图添加公共xlab

1条答案

相关问题

热门标签

最新问答