r - 如何获取ggplot图的单轴内具有不同颜色的轴刻度标签？

Question

考虑一个简单的ggplot2图

library(ggplot2) 
dat <- data.frame(name=c("apple", "orange", "plum"),value=c(3,8,2),outlier=c(FALSE,TRUE,FALSE))
ggplot(dat)+geom_point(aes(x=value,y=name))

有没有一种方法可以有条件地修改y轴标签的样式属性（例如颜色），例如取决于 outlier中的 dat列？

结果将是类似



在具有大量项目的图形上，此功能将大大提高图形的可读性和影响力。

Answer 1

一种更简单的方法（IMO）就是创建条件颜色矢量并将其解析为axis.text.y

dat <- data.frame(name=c("apple", "orange", "plum"),value=c(3,8,2),outlier=c(FALSE,TRUE,FALSE))
colvec <- character(dim(dat)[1])
colvec <- ifelse(dat$outlier, "red", "black")

library(ggplot2) 
ggplot(dat) +
geom_point(data = dat, aes(x=value,y=name)) +
theme(axis.text.y = element_text(colour=colvec))