ggplot 轴标签 r 中的撇号和上标

Question

可重现的例子：

x1<-rnorm(5,5,1)
y1<-rnorm(5,5,1)
d<-data.frame(x1,y1)

ggplot(data=d,aes(x=x1,y=y1))+
  geom_point()+
  ylab(bquote('y (since year s'* ~ 1^st*' day)'))

我想在“年”后添加一个撇号，我尝试添加 '\'' 但它不起作用。

已经有几个问题在问上标：

但我找不到任何将它与撇号（由上标表达式识别）结合起来的。

Answer 1

单引号 ' 和双引号 " 在 R 代码中通常可以互换。将包含单引号的字符串用双引号括起来，得到您想要的单引号。

library(ggplot2)
x1<-rnorm(5,5,1)
y1<-rnorm(5,5,1)
d<-data.frame(x1,y1)

ggplot(data=d,aes(x=x1,y=y1))+
  geom_point()+
  ylab(bquote("y (since year's"* ~ 1^st*' day)'))

^{由 reprex package (v0.3.0)}

于 2021 年 1 月 2 日创建

ggplot 轴标签 r 中的撇号和上标

Apostrophe and superscript in ggplot axis label r

r

superscript

apostrophe

ggplot2