轴标签ggplot2 R中的换行符和上标

Question

我正在尝试在 ggplot2 中绘制图表。y 轴上的标签应包含换行符和上标文本，并且应居中。它应该看起来像：

“移动无脊椎动物的密度（个体 m^-2）”

换行符应在“移动”之后，“每平方米”应在上标中。我试过了

p+ ylab(bquote("Density of mobile\ninvertebrates"(indiv.~m^-2)))

但它不居中，并且在“(indiv.~m^-2)”之前有一个有趣的空格

Answer 1

您可以使用expression()和atop()自动格式化空白。

ggplot(data,aes(x=x,y=y)) + 
   geom_point() + 
   xlab( expression(atop("Density of mobile",paste("invertebrates (ind.~",m^{2},")"))))

数据

set.seed(1) 
data <- data.frame(x = 1:10, y = 1:10 + runif(-1,1,n=10))