在更改 geom_bar 顺序时保持一致的 colors？

Question

在根据另一个值订购 geom_bar() 时，我正在努力保持图表之间的颜色一致性。

期望：

• A & B colors 图表之间保持一致
• 每个 plot 都有 A 和 B 的降序

实际的：

• A & B 在图表之间交换 colors

library(tidyverse)
dat <- data.frame(x = c("A","B"), y = c(1,2), z = c(4,3))
# Y
dat %>% 
  mutate(x = fct_reorder(x, y,`.desc` = TRUE)) %>% 
  ggplot(aes(x = x, y = y, fill = x)) + 
  geom_bar(stat = "identity")

# Z
dat %>% 
  mutate(x = fct_reorder(x, z,`.desc` = TRUE)) %>% 
  ggplot(aes(x = x, y = z, fill = x)) + 
  geom_bar(stat = "identity")

^{由reprex package (v0.3.0) 创建于 2020-08-31}

Answer 1

这种方法最终对我有用：

dat %>% 
arrange(desc(z)) %>% 
ggplot(aes(x = reorder(x, desc(z)), y = z, fill = x)) + 
geom_bar(stat = "identity")