使用ggarrange共享x和y轴标签ggplot2
使用ggarrange共享x和y轴标签ggplot2
提问于 2020-11-10 02:37:49
我有一些基于二分计数数据创建的ggplot对象。我使用ggarrange将它们组合在一起。在这个函数中，有一个创建共享图例的选项，但我看不到创建共享x和y轴标签的方法。此外，图形的间距非常奇怪-在两个图形列之间有一个巨大的差距，并且在共享图例之前还有大量的垂直空间。因此，总而言之，我希望能够创建共享的x和y轴，并最小化不必要的垂直和水平空间。
我查看了以下线程：ggplot2 grid
ggplot: align plots together and add common labels and legend
Add common axis titles with lines/arrows for multiple plots in ggplot
ggplot: how to add common x and y labels to a grid of plots
但我认为我想要做的事情要简单得多，我不知道如何将ggarrange与facet.grid结合起来，这是几次建议的。
下面我复制了一个可重现的例子。
require(tidyverse)
require(ggpubr)
require(reshape2)
condition <- c("a", "a", "a", "b", "b", "b", "c", "c", "c", "c")
binary_1 <- c(0,0,0,0,0,1,1,1,1,1)
binary_2 <- c(1,1,1,1,1,1,0,0,0,0)
binary_3 <- c(0,1,1,1,1,1,1,1,0,0)
binary_4 <- c(1,1,1,0,0,0,0,0,0,0)
df <- data.frame(condition, binary_1, binary_2, binary_3, binary_4)
df
gg_df <- df %>%
mutate(binary_1 = as.factor(binary_1), binary_2 = as.factor(binary_2), binary_3 = as.factor(binary_3), binary_4 = as.factor(binary_4))
gg_melt <- melt(gg_df)
gg_1 <- ggplot(gg_melt, aes(x=condition, fill = binary_1)) +
geom_bar(stat="count") +
scale_fill_manual(values = c("#FDAE61", "#9E0142"), name = "Behaviour Observed", labels = c("0" = "Absent", "1" = "Present")) +
scale_x_discrete(labels = c(a = "Condition A", b = "Condition B", c = "Condition C")) +
xlab("Condition") +
ylab("Number of Participants") +
ggtitle("Binary 1") +
theme(plot.title = element_text(size = 10, face="bold", hjust = 0.5)) +
theme(aspect.ratio = 1) +
theme(legend.title=element_text(size=10, face = "bold"), axis.title = element_text(size=10, face = "bold"), axis.text = element_text(size=10))+
theme(legend.box.just = "center")
gg_2 <- ggplot(gg_melt, aes(x=condition, fill = binary_2)) +
geom_bar(stat="count") +
scale_fill_manual(values = c("#FDAE61", "#9E0142"), name = "Behaviour Observed", labels = c("0" = "Absent", "1" = "Present")) +
scale_x_discrete(labels = c(a = "Condition A", b = "Condition B", c = "Condition C")) +
xlab("Condition") +
ylab("Number of Participants") +
ggtitle("Binary 2") +
theme(plot.title = element_text(size = 10, face="bold", hjust = 0.5)) +
theme(aspect.ratio = 1) +
theme(legend.title=element_text(size=10, face = "bold"), axis.title = element_text(size=10, face = "bold"), axis.text = element_text(size=10))+
theme(legend.box.just = "center")
gg_3 <- ggplot(gg_melt, aes(x=condition, fill = binary_3)) +
geom_bar(stat="count") +
scale_fill_manual(values = c("#FDAE61", "#9E0142"), name = "Behaviour Observed", labels = c("0" = "Absent", "1" = "Present")) +
scale_x_discrete(labels = c(a = "Condition A", b = "Condition B", c = "Condition C")) +
xlab("Condition") +
ylab("Number of Participants") +
ggtitle("Binary 3") +
theme(plot.title = element_text(size = 10, face="bold", hjust = 0.5)) +
theme(aspect.ratio = 1) +
theme(legend.title=element_text(size=10, face = "bold"), axis.title = element_text(size=10, face = "bold"), axis.text = element_text(size=10))+
theme(legend.box.just = "center")
gg_4 <- ggplot(gg_melt, aes(x=condition, fill = binary_4)) +
geom_bar(stat="count") +
scale_fill_manual(values = c("#FDAE61", "#9E0142"), name = "Behaviour Observed", labels = c("0" = "Absent", "1" = "Present")) +
scale_x_discrete(labels = c(a = "Condition A", b = "Condition B", c = "Condition C")) +
xlab("Condition") +
ylab("Number of Participants") +
ggtitle("Binary 4") +
theme(plot.title = element_text(size = 10, face="bold", hjust = 0.5)) +
theme(aspect.ratio = 1) +
theme(legend.title=element_text(size=10, face = "bold"), axis.title = element_text(size=10, face = "bold"), axis.text = element_text(size=10))+
theme(legend.box.just = "center")
figure <- ggarrange(gg_1, gg_2, gg_3, gg_4,
labels = NULL,
ncol = 2, nrow = 4,
common.legend = TRUE, legend = "bottom",
align = "hv",
font.label = list(size = 10, color = "black", face = "bold", family = NULL, position = "top"))
pdf("figure.pdf")
figure
dev.off()Stack Overflow用户
发布于 2021-04-06 22:16:57
对于使用ggarrange的常用轴，可以尝试更改为：
figure <- ggarrange(gg_1 + rremove("ylab") + rremove("xlab"), gg_2 + rremove("ylab") + rremove("xlab"), gg_3 + rremove("ylab") + rremove("xlab"), gg_4+ rremove("ylab") + rremove("xlab"), # remove axis labels from plots
labels = NULL,
ncol = 2, nrow = 2,
common.legend = TRUE, legend = "bottom",
align = "hv",
font.label = list(size = 10, color = "black", face = "bold", family = NULL, position = "top"))
annotate_figure(figure, left = textGrob("Common y-axis", rot = 90, vjust = 1, gp = gpar(cex = 1.3)),
bottom = textGrob("Common x-axis", gp = gpar(cex = 1.3))gp = gpar(cex = 1.3)部件更改字体大小。在公共图例之前有这么多空间的原因是因为您在ggarrange中指定了nrow = 4，但最后两行没有填充。figure列之间存在间隙的原因是因为您为每个绘图都包含了theme(aspect.ratio = 1)，因此为了减小此间隙，您必须减小ggarrange图的宽度，或者注释掉/删除纵横比位。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64757410
复制相关文章
相似问题
腾讯云开发者
