R 将空白空间添加到 ggplot2 图的周边

发布于05月13日

我有一个看起来像这样的数字: Initial Plot个

我正在try 增加星号的大小，使用以下代码:

ggplot(data, aes(x = Cohort, y = C1M_HP, fill = Cohort)) + geom_violin(width = 0.5) +
geom_boxplot(outlier.shape = NA, width = 0.2, coef = 0) + 
geom_signif(comparisons = list(c("Control","Dup")), map_signif_level=TRUE, textsize = 6.25) + 
scale_fill_manual(values = c('#AED6F1', '#F1948A')) + theme_minimal() + 
geom_jitter(alpha = 0.8, width = 0.1)

不幸的是，这会导致星号被截断，如下所示: Increased asterisk size个

我曾try 使用plot.margin更改边距大小，但这是不正确的.

我如何在我的绘图边缘添加额外的‘空白空间’来防止这个问题？

推荐答案

一种方法是使用coord_cartesian(ylim = c(ymin, ymax))

library(ggplot2)
library(ggsignif)

ggplot(mtcars, aes(x = factor(am), y = mpg, fill = factor(am))) + geom_violin(width = 0.5) +
  geom_boxplot(outlier.shape = NA, width = 0.2, coef = 0) + 
  geom_signif(comparisons = list(c("0","1")), map_signif_level=TRUE, textsize = 10.25) + 
  scale_fill_manual(values = c('#AED6F1', '#F1948A')) + theme_minimal() + 
  geom_jitter(alpha = 0.8, width = 0.1)+
  theme_minimal()+
  coord_cartesian(ylim = c(0, max(mtcars$mpg)+5))