在ggplot轴标题中表示斜体和上标

Question

我很遗憾地问这个问题，但我似乎无法将此表达式包含在ggplot2-object的ylab()或xlab()参数中。需要阅读：

“ 2q （稀有）”。但是，“2”需要上标。

我摆弄expression()和paste()，但似乎不可能。非常感谢任何帮助。

编辑：一些例子：

dat<-as.data.frame(matrix(runif(100), 10,10))
names(dat) <- LETTERS[1:10]

library(ggplot2)
ggplot(dat, aes(A,B)) +
  geom_point()+
  xlab("some title")

Answer 1

所有必要的信息都可以在help("plotmath")找到。

ggplot(dat, aes(A,B)) +
  geom_point()+
  xlab(expression({}^2*italic(q)~textstyle(group("(", rarefied, ")"))))