代码之家 › 专栏 › 技术社区 › Gonzalo de Quesada

如何更改plot_drid()中绘图标签的空间

label ggplot2 r

Gonzalo de Quesada · 技术社区 · 2 年前

我试图绘制一个数字,但数据是保密的,所以我不能在这里发布,但我会添加一个例子(不是最好的例子,但它是为了让你理解我的问题)

country<-c("United Kingdom", "Germany", "Poland", "Spain", "Portugal", "France")
x<-as.numeric(c(13.4,25.1,10,15,12.1,21.8))
y<-as.numeric(c(124,112,176,124,109,143))
df<<-data.frame(country, x,y)

p1<-ggplot(data=df)+geom_bar(aes(x=country,y=x),stat="identity")+
  coord_flip()+ylab("x")+
  theme(text=element_text(size=20),l+theme(panel.background = element_blank())

p2<-ggplot(data=df)+geom_bar(aes(x=country,y=y),stat="identity")+
  coord_flip()+ylab("y")+
  theme(text=element_text(size=20)+theme(panel.background = element_blank())

plot_grid(p1,p2,align = "vh",labels = c("(a)","(b)"),label_size=19)

当我绘制它时,我会得到这样的数字

如何移动绘图标签(“(a)”和“(b)”),使其不与轴标签重叠

1 回复 | 直到 2 年前

JavierMtzRdz 2 年前

为此,您可以使用 hjust 和 vjust 在…内 plot_grid() 作用例如,这对我有效:

cowplot::plot_grid(p1,p2,align = "vh",
                   labels = c("(a)","(b)"),
                   vjust = 1.1, 
                   hjust = -.05,
                   label_size = 19)