我有一个从ggplot2创建的基本条形图。y变量同时包含正值和负值,并且值向量的大约一半为负值。我想自定义轴标签,以便当相应x因子的y值为负时,其标签为红色。这是一个可重现的示例:
#Create data
x <- c("a","b","c","d","e","f")
y <- c("10", "9","-10","11","-3","-15")
data <- data.frame(x, y)
data$y <- as.numeric(as.character(data$y))
data$category <- ifelse(as.numeric(data$y)<0, 0, 1)
data$category <- as.factor(data$category)
#Graph
library(cowplot) #theme
library(ggplot2)
ggplot(data, aes(x=x, y=y)) +
geom_bar(stat = "identity", aes(fill=category)) +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
theme(axis.text.x = element_text(colour = "black"))
我需要的是一种将标签颜色“ c”,“ e”和“ f”更改为我选择的颜色的方法。我尝试切换,theme(aes(axis.text.x=element_text(colour=Air_pricier)))
但产生了错误。提前致谢。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句