在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 包，用于解析 LaTeX 数学公式并将其转换为 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)

在ggplot中用大于等于标注

Annotate with greater than or equal to in ggplot

r

ggplot2

annotate