如何使用条件语句为条形图着色[重复]

Question

我正在尝试根据样本编号ifelse(total > 90, "#FC2D00", "#008EFC") 为geom_bar 着色。换句话说，如果total > 90，条形应该是red，但total

type = c("aa", "bb", "cc")
total = c(110, 90, 89)

df = data.frame(type, total)

df %>% 
ggplot2::ggplot(aes(x = type, y = total)) +
  geom_bar(position = "dodge",
           stat = "identity")

我试过了

df %>% 
ggplot2::ggplot(aes(x = type, y = total)) +
  geom_bar(position = "dodge",
           stat = "identity",
           fill = (ifelse(
           levels(studies$total > 90, "#FC2D00", "#008EFC"))))

还有

df %>% 
mutate(fill = ifelse(levels(total > 90, "#FC2D00", "#008EFC"))) %>% 
ggplot2::ggplot(aes(x = type, y = total)) +
  geom_bar(position = "dodge",
           stat = "identity",
           fill = fill)

但它仍然无法正常工作。我不确定是什么问题。

Answer 1

将您的填充移到aes() 内。

你应该在scale_fill_manual()中指定颜色：

df %>% 
mutate(fill = ifelse(levels(total > 90, "#FC2D00", "#008EFC"))) %>% 
ggplot2::ggplot(aes(x = type, y = total, fill = fill)) +
  geom_bar(position = "dodge",
           stat = "identity") +
  scale_fill_manual(values= c("red","blue"))

Answer 2

在 ggplot 中，我们通常在刻度中定义颜色值，并且图例会根据数据很好地自动生成。因此，将您想要的图例标签放入数据中，而不是您想要使用的颜色。

df %>% 
mutate(emphasize = ifelse(total > 90, "> 90", "<= 90")) %>% 
ggplot(aes(x = type, y = total, fill = emphasize)) +
  geom_col(position = "dodge") +
  scale_fill_manual(values = c("> 90" = "#FC2D00", "<= 90" = "#008EFC"))

我们不需要使用levels() - 这是一个糟糕的选择，因为total 不是一个因素（并且它不会每行返回一个值，它可能具有与数据不同的顺序.. .)。我还将geom_bar 切换为geom_col - geom_col 具有stat = "identity" 作为默认值。

Answer 3

不需要ifelse() 或mutate()。您可以直接使用fill 中的逻辑条件，然后使用scale_fill_manual() 格式化颜色和标签：

library(ggplot2)
library(dplyr)
#Data
type = c("aa", "bb", "cc")
total = c(110, 90, 89)
df = data.frame(type, total)
#Plot
df %>% 
  ggplot2::ggplot(aes(x = type, y = total,fill=total > 90)) +
  geom_bar(position = "dodge",
           stat = "identity")+
  scale_fill_manual(values = c("#FC2D00","#008EFC"),
                    labels=c('TRUE'='>90','FALSE'='<90'))+
  labs(fill='Total')

输出：