r - geom_text : character, 数字和特殊字符中的解析表达式

Question

我的问题

我想用一个表达式来注释 ggplot() 的每个方面，该表达式是统计测试产生的值的组合。我无法在 geom_text() 中解析字符串。

一个类似的问题被部分覆盖了here .不幸的是，我无法应用该特定示例。

我的目标

解析结合数字、字符和特殊字符的表达式。在这种情况下，下面示例的 lab2。

示例

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()

custom_label <- data.frame(cyl = c(4,6,8),
                           wt = c(5,5,5),
                           lab = c('X^2','X^2','X^2'),
                           lab2 = c('X^2: 18.5342, p =3e-04',
                                   'X^2: 4.7512, p =0.1909',
                                   'X^2: 15.3266, p =0.0016'))
p + facet_grid(. ~ cyl) +
  geom_text(data = custom_label, aes(x=30, y=wt, label = lab2), size = 3, parse = T)

这在使用 custom_label$lab 时效果很好，但在 lab2 时失败。

我将不胜感激任何帮助。如果我清楚地提出了我的问题，请告诉我。

提前致谢。

Answer 1

实际上我认为您没有得到真正的卡方，而是得到了X^2。这可能没问题，因为卡方变量的样本估计通常被标记为 X^2，但如果您想要 chi，则需要使用 chi(或 Chi 大写-希腊语-chi，诚然看起来很像“X”)。您需要使用双引号并使用适当的 ~ 和 * 分隔符构造为 plotmath 表达式:

                      lab2 = c("chi^2*':'~18.5*', p =3e-04'",
                               "chi^2*':'~4.7*', p =0.1909'",
                               "chi^2*':'~15.3*', p =0.0016'")

运行 plotmath 的示例和演示:

?plotmath
demo(plotmath)