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

Question

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

制作了一张标题为 'two line' y-axis 的图表

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-axis标题被分成了两行，但是整个标题没有装进图表里。即使我调整了图形大小的宽度，它也没有应用于轴标题。

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

谢谢，

Answer 1

一种方法是调整边距，让更多 space 向左。

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,0.5,1.2),"cm"))

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

How to fit the axis title with two lines in R?

r

graph

size

axis-labels

yaxis