Настроить метки оси ggplot2 с разными цветами

У меня есть базовая гистограмма, которую я создал из ggplot2. Переменная y содержит как положительные, так и отрицательные значения, а половина вектора значений отрицательна. Я хотел бы настроить метки осей таким образом, что когда значение 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))) но это theme(aes(axis.text.x=element_text(colour=Air_pricier))) ошибку. Заранее спасибо.

Ответ 1