異なる色でggplot2軸ラベルをカスタマイズします
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)))を切り替えようとしましたが、エラーが発生しました。前もって感謝します。
theme()のaxis.text.xオプションに色のベクトルを提供できます：
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))
