我想用"大鱼≥45厘米"的短语注释ggplot,但似乎无法实现。我尝试了以下示例,但会产生一个" ="。还添加" 45"会引发错误。
ggplot(mtcars, aes(mpg, disp))+
geom_point()+
annotate("text",25,400, label=("Fish*~symbol('u2265')*~cm"), parse=TRUE, hjust=0)
怎么样:
ggplot(mtcars, aes(mpg, disp))+
geom_point()+
annotate("text",25,400, label=("'Large fish' >= 45 ~ 'cm'"), parse=TRUE, hjust=0)
一个不同的解决方案基于latex2exp
软件包(一个解析和将乳胶数学公式转换为R的plotmath
表达式的R软件包(:
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)