gpt4 book ai didi

r - 使用 cowplot 包的多图的居中 X 轴标签

转载 作者:行者123 更新时间:2023-12-04 13:11:01 34 4
gpt4 key购买 nike

我有一个多图图,由 2x2 配置的 4 个图组成。我使用“cowplot”包和 plot_grid 函数使用下面的代码排列图

plot_grid(p1, p2, p3, p4, align='vh', vjust=1, scale = 1)

其中 p1-p4 是我的 4 个图。结果图有一个与多图中每一列相关联的 x 轴标签:

enter image description here

有谁知道我如何使用牛图或其他方式对以多图底部为中心的单个 x 轴标签进行编码?

最佳答案

另一种选择是使用 textGrob为常见的 x 和 y 标签添加注释。

在本例中,如果您希望删除单个轴标签,只需包含 theme(axis.title = element_blank())在情节调用中。 (或者,对于 y 轴,使用 theme(axis.title.y=element_blank()) )。

library(ggplot2)
library(cowplot)
library(grid)
library(gridExtra)

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

#make 4 plots

p1<-ggplot(ToothGrowth, aes(x=dose, y=len)) +
geom_boxplot()


p2<-ggplot(ToothGrowth, aes(x=dose, y=supp)) +
geom_boxplot()

p3<-ggplot(ToothGrowth, aes(x=supp, y=len)) +
geom_boxplot()

p4<-ggplot(ToothGrowth, aes(x=supp, y=dose)) +
geom_boxplot()

#combine using cowplot

plot<-plot_grid(p1, p2, p3, p4, align='vh', vjust=1, scale = 1)

#create common x and y labels

y.grob <- textGrob("Common Y",
gp=gpar(fontface="bold", col="blue", fontsize=15), rot=90)

x.grob <- textGrob("Common X",
gp=gpar(fontface="bold", col="blue", fontsize=15))

#add to plot

grid.arrange(arrangeGrob(plot, left = y.grob, bottom = x.grob))

enter image description here

关于r - 使用 cowplot 包的多图的居中 X 轴标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33114380/

34 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com