r - geom_label 中的上标星

Question

我想在 geom_label 中绘制一个上标的星星来自数据框字符串，但找不到解决方案。

一个最小的工作示例是

library(ggplot2)
df <- data.frame(x = 1, y = 1, l = "P^2")
# the real data.frame has more observations with other expressions as well

ggplot(df, aes(x = x, y = y, label = l)) + 
  geom_label(parse = T)

但是我想显示 P^* 而不是 P^2。但是， "P*" 都没有, "P^*" , latex2exp::TeX("P^\\star", output = "character") ，也没有任何额外的 \在这种情况下帮助我。

编辑

如果您正在寻找在 geom_label、文本(注释)或使用来自 data.frame 的文本的其他几何图形(即，您在 aes 函数内分配值)中使用表达式(和星号)，那么这可能对你有帮助。

如果您想在轴标签、标题或其他直接指定在 aes 之外的文本中使用表达式(和星号) -function(即 labs(x = "my expresion here"))，然后是 this question会帮助你的!

Answer 1

写完问题后，我终于找到答案很简单"P^'*'" .但是因为我在其他任何地方都找不到解决方案，所以我想把答案留在这里。

df <- data.frame(x = 1, y = 1, l = "P^'*'")

ggplot(df, aes(x = x, y = y, label = l)) + 
  geom_label(parse = T)