在ggplot中註釋大於或等於

Question

我想用短語「Large fish≥45cm」註釋ggplot，但似乎無法實現它。 我試過下面的例子，但它產生一個「=」。另外添加「45」會引發錯誤。

ggplot(mtcars, aes(mpg, disp))+ 
geom_point()+ 
annotate("text",25,400, label=("Fish*~symbol('\u2265')*~cm"), parse=TRUE, hjust=0) 

Answer 1

這樣如何：

ggplot(mtcars, aes(mpg, disp))+ 
    geom_point()+ 
    annotate("text",25,400, label=("'Large fish' >= 45 ~ 'cm'"), parse=TRUE, hjust=0) 

Answer 2

一種不同的解決方案是基於所述latex2exp包（的R包，解析和轉換乳膠數學公式至R的plotmath表達式）：

library(latex2exp) 
ggplot(mtcars, aes(mpg, disp))+ 
geom_point()+ 
annotate("text",25,400, 
      label=TeX("Fish $\\geq$ 45 cm", output="character"), 
      hjust=0, parse=TRUE)