r - ggplot 的 annotate() 中的星号

Question

文本可以添加到 ggplot对象使用 annotate() .但是，我不知道如何打印星号，因为据我了解，星号用于解析。

这是一个例子。假设我运行了一个非参数测试，并且我想打印测试统计量，其显着性水平以星号为单位。不幸的是，这不起作用:

library(ggplot2)
ggplot(iris, aes(Sepal.Length, Sepal.Width, color=Species)) + 
  geom_point() + 
  annotate('text', x = 7, y = 4, label="chi^2 == 2.50***", parse=TRUE)

Error in parse(text = as.character(lab)) : <text>:1:16: unexpected '*'
1: chi^2 == 2.50***

在绘图对象之外定义标签 - 例如 lab <- paste0("chi^2 == 2.5","***", sep="") ，然后调用 annotate('text', x = 7, y = 4, label=lab, parse=TRUE) - 也不起作用。

是否可以在 annotate() 中使用星号？ ?

编辑 抱歉，我忘了提到我想要编译希腊字母。理想情况下，文本将显示为 $$chi^2 = 2.50***$$

Answer 1

使用双引号和单引号的组合可以解决问题:

library(ggplot2)
ggplot(iris, aes(Sepal.Length, Sepal.Width, color=Species)) + 
  geom_point() + 
  annotate('text', x = 7, y = 4, label='chi^2 == "2.50***"', parse=TRUE)

label = 可以使用单引号。 , 和你不想要的字符串的双引号 annotate解析。双引号之外但在单引号内的任何内容都将被解析。