如何在R中用两行拟合轴标题？

问题描述

我使用代码 ylab(expression(paste()

制作了一张带有“两行”y 轴标题的图表

Genotype <- c("CV1","CV2","CV1","CV2")
Category<- c("GN","GN","AGW","AGW")
mean <- c(1.47,1.66,0.98,0.93)
se<- c(0.10,0.20,0.03,0.06)
DataA<- data.frame(Genotype,Category,mean,se)
DataA


ggplot(data=DataA,aes(x=Genotype,y=mean,fill=Category))+
  geom_bar(stat="identity",position="dodge",width = 0.7) + 
  geom_errorbar(aes(ymin= mean-se,ymax=mean + se),position=position_dodge(0.7),width=0.2,size=1) +
  scale_fill_manual(values= c ("Dark gray","Cadetblue")) + 
  scale_y_continuous(breaks = seq(0,2,0.2),labels = scales::percent,limits = c(0,2)) +  
  geom_hline(yintercept=1,linetype="dashed",color = "Dark red",size=1.5) + 
  xlab("Cultivar") +
  ylab(expression(paste("Value of thinning treatment \n relative to unthinning treatment"))) +
  theme(axis.title = element_text (face = "plain",size = 15,color = "black"),axis.text.x = element_text(size= 15),axis.text.y = element_text(size= 15),axis.line = element_line(size = 0.5,colour = "black"))+ 
  windows(width=7,height=5)

y 轴标题被分成两行，但整个标题并没有装在图表内。即使我调整了图形大小的宽度，它也没有应用于轴标题。

你能告诉我如何将整个 y 轴标题很好地拟合到图表中，同时保持轴标题的大小（即字体大小= 15）？

谢谢，

解决方法

一种方法是调整边距，为左侧留出更多空间。

library(ggplot2)

ggplot(data=DataA,aes(x=Genotype,y=mean,fill=Category))+
  geom_bar(stat="identity",position="dodge",width = 0.7) + 
  geom_errorbar(aes(ymin= mean-se,ymax=mean + se),position=position_dodge(0.7),width=0.2,size=1) +
  scale_fill_manual(values= c ("Dark gray","Cadetblue")) + 
  scale_y_continuous(breaks = seq(0,2,0.2),labels = scales::percent,limits = c(0,2)) +  
  geom_hline(yintercept=1,linetype="dashed",color = "Dark red",size=1.5) + 
  xlab("Cultivar") +
  ylab(expression(paste("Value of thinning treatment \n relative to unthinning treatment"))) +
  theme(axis.title = element_text (face = "plain",size = 15,color = "black"),axis.text.x = element_text(size= 15),axis.text.y = element_text(size= 15),axis.line = element_line(size = 0.5,colour = "black")) + 
  theme(plot.margin=unit(c(1,0.5,1.2),"cm"))