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^2，而是想显示 P^*。然而，在这种情况下"P*"，"P^*"、latex2exp::TeX("P^\\star", output = "character")、 或任何其他的都不能帮助我。\

编辑

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

如果您想在轴标签、标题或其他直接在函数外部指定的文本aes（即）中使用表达式（和星号） labs(x = "my expresion here")，那么这个问题将帮助您！

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)