r - 使用 ggplot2 对轴文本进行条件格式化

Question

我正在尝试格式化轴文本以反射(reflect)所使用的相同组填充下图中的几何图形。为 fill 参数选择颜色方案在aes()中，导致a和b、c之间颜色不同。 ifelse 语句中使用然而，element_text() 不会产生正确的颜色格式。

library(ggplot2)

# Make some data (emulating melted format)
df <- cbind.data.frame(c('a', 'a', 'a', 'b', 'c'), 
                       c(5, 5, 5, 15, 45), 
                       c(1, 1, 1, 0, 0))
names(df) <- c('variable', 'value', 'col')

# Conditional statement to be used in plot
con <- ifelse(df$col == 1, 'red', 'green')

# Call to the plot included below
ggplot(df, aes(x = variable, y = value)) + 
  geom_bar(stat = "identity", aes(fill = col)) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, colour = con))

Answer 1

您的 con 变量有五个元素，其中前三个是“红色”:

[1] "red"   "red"   "red"   "green" "green"

由于只有三个轴标签，因此 theme 使用前三个值，从而使所有标签变为红色。当 con 的长度合适时，我们得到期望的结果:

con <- ifelse(unique(df$variable) == 'a', 'red', 'darkgreen')