r - 在 R 中通过 geom_text 添加小于符号 "<"到 ggplot

简短版本 :我如何使这个人为的代码图成为一个适当的希腊测试字符和标签字符串的其余部分，以及空格和小于字符以及格式化为键入的数字？

library("ggplot2")
df<-data.frame(a=1:15,b=6:20)
ggplot(data=df, aes(x=a,y=b)) + geom_point() +
       geom_text(x=5,y=4,label="beta=1.00 p<0.0001", parse=TRUE)

如果我省略了 ", parse=TRUE"参数，该字符串效果很好，但不会给我一个真正的希腊测试版。如果我把它留在里面，所有的 hell 都会崩溃。

长版 (以及为什么我找不到重复的):我终于在 How to use Greek symbols in ggplot2? 中发现在 ggplot 上放置希腊字符的方法取决于您将它们放置的位置。由于我使用 geom_text 将文本字符串强制到图的主体上，因此我尝试使用 expression(beta) 失败了，我最近开始使用上面提到的 parse 参数。我遇到了 How can I add alpha-numeric AND greek characters to geom_text() in ggplot? ，我认为这是我的答案，但修复“空格”会导致额外的括号弹出，“=”被逗号替换，并且丢失了我以前格式化的所有文本数字的格式。

一个使用 parse 参数的指南的链接，以及如何理解在我看来完全不直观的东西对我非常有帮助，可能 future 的 R 用户最终会在这里。许多搜索都没有结果。

最佳答案

这应该这样做:

g <- ggplot(data=df, aes(x=a,y=b)) + geom_point()
g + annotate("text", x=5,y=4,parse=TRUE, label="beta==1.00 * ' p<0.0001'")

这是将带有单引号的标签拆分到空白一侧并使用 * 连接两个标签位的问题。您还需要等于的 ==。

关于r - 在 R 中通过 geom_text 添加小于符号 "<"到 ggplot，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/28666794/