r - ggplot 用希腊符号和 (1) 撇号或 (2) 在文本之间进行注释

Question

无法在 ggplot 注释中添加希腊字母，当:它夹在其他文本之间，或相关文本包含撇号时。

例如，以下工作正常:

df <- data.frame(x =  rnorm(10), y = rnorm(10))
temp<-paste("rho == 0.34")
ggplot(df, aes(x = x, y = y)) + geom_point() +
    annotate("text", x = mean(df$x), y = mean(df$y), parse=T,label = temp)

但是，当我这样做时，ggplot 会爆炸:

df <- data.frame(x =  rnorm(10), y = rnorm(10))
temp<-paste("Spearman's rho == 0.34")
ggplot(df, aes(x = x, y = y)) + geom_point() +
    annotate("text", x = mean(df$x), y = mean(df$y), parse=T,label = temp)

ggplot 对这些特殊字符非常敏感。其他帖子似乎没有解决这个问题(如果没有，请道歉)。提前致谢。

Answer 1

我感受到了你的沮丧。诀窍，除了使用 expression对于@baptiste 评论的标签，传递您的标签 as.character至 ggplot .

df <- data.frame(x =  rnorm(10), y = rnorm(10))
temp <- expression("Spearman's"~rho == 0.34)
ggplot(df, aes(x = x, y = y)) + 
  geom_point() + 
  annotate("text", x = mean(df$x), y = mean(df$y), 
           parse = T, label = as.character(temp))