在ggplot的註釋函數中使用數學符號

Question

我正在使用ggplot繪製5個方面的一些數據，我想放一些說「Delta =＃」的文本，其中Delta是大寫數學delta符號，＃是1,2 ，3,4或5基於哪個方面。這裏是我有：

annotate("text",x="baseline",y=75,label=paste(expression(Delta),"=",1:5)) 

我的代碼行的作品，但它拼寫出三角洲，而不是給我的三角洲符號。我怎樣才能得到數學符號？

Answer 1

試試這個

df <- mtcars[2:6,] 
ggplot(df, aes(mpg, disp))+ 
    geom_point()+ 
    annotate("text",df$mpg,df$disp,label=paste(("Delta * '=' *"), 1:5), 
    parse=TRUE, hjust = 1.1) 

Answer 2

annotate()會給你每個面相同的註釋，你應該使用geom_text()代替，用合適的data.frame提供的映射。

library(ggplot2) 
ggplot(data.frame(f=1:2, lab = sprintf("Delta == %i", 1:2))) + facet_wrap(~f) + 
    geom_text(aes(label=lab), x=0, y=0, parse=TRUE)