考虑一个简单的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
?
结果将是类似
在具有大量项目的图形上,此功能将大大提高图形的可读性和影响力。
一种更简单的方法(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))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句