显示大于或等于符号(Displaying a greater than or equal sign)

我有因此产生一个情节：

ggplot(dt.2, aes(x=AgeGroup, y=Prevalence)) + 
    geom_errorbar(aes(ymin=lower, ymax=upper), colour="black", width=.2) +
    geom_point(size=2, colour="Red")

我控制X轴标签是这样的：

scale_x_discrete(labels=c("0-29","30-49","50-64","65-79",">80","All")) +

这工作，但我需要改变“> 80”的标签为“≥80”。

然而“≥80”被显示为“= 80”。

我怎么能显示比或等号更大？

Answer 1:

使用表达式的替代方法是Unicode字符，在这种情况下Unicode字符“大于或等于”（U + 2265）。 复制@ MNEL的榜样

.d <- data.frame(a = letters[1:6], y = 1:6)

ggplot(.d, aes(x=a,y=y)) + geom_point() + 
    scale_x_discrete(labels = c(letters[1:5], "\u2265 80"))

Unicode是一个很好的选择，如果你很难记住复杂的表达式语法，或者如果你需要换行，这表达不允许。 作为一个缺点，具体的Unicode字符是否在所有的工作取决于你的图形设备和选择的字体上。

Answer 2:

可以通过表达式（包括phantom(...)到假领先>=内的label参数scale_x_discrete(...)

例如

 .d <- data.frame(a = letters[1:6], y = 1:6)

 ggplot(.x, aes(x=a,y=y)) + geom_point() + 
    scale_x_discrete(labels = c(letters[1:5], expression(phantom(x) >=80))

见?plotmath有关创建数学表达式的详细信息和此相关的SO问题和答案

Answer 3:

plot(5, ylab=expression("T ">="5"))

文章来源: Displaying a greater than or equal sign