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 -function）、これが役に立ちます。

あなたは、軸ラベル、タイトル、または直接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)