tamaño - Personaliza las etiquetas de los ejes ggplot2 con diferentes colores.

ggplot2 tutorial español

Question

Tengo un gráfico de barras básico que he creado desde ggplot2. La variable y contiene valores positivos y negativos, y aproximadamente la mitad del vector de valores son negativos. Me gustaría personalizar las etiquetas de los ejes de modo que cuando el valor y de ese factor x correspondiente sea negativo, su etiqueta sea roja. Aquí hay un ejemplo reproducible:

#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"))

Lo que necesito es una forma de cambiar los colores de la etiqueta de "c", "e" y "f" al color de mi elección. Intenté cambiar el theme(aes(axis.text.x=element_text(colour=Air_pricier))) pero eso produjo un error. Gracias por adelantado.

Answer 1

Puede proporcionar un vector de colores a la opción axis.text.x de 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))