r - 自定义具有不同颜色的 ggplot2 轴标签

Question

我有一个从 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)))但这产生了错误。提前致谢。

Answer 1

您可以向 axis.text.x 提供颜色向量。 theme() 的选项:

a <- ifelse(data$category == 0, "red", "blue")

ggplot(data, aes(x = x, y = y)) + 
    geom_bar(stat = "identity", aes(fill = category)) +
    theme(axis.text.x = element_text(angle = 45, hjust = 1, colour = a))