更改集群 geom_col 中的填充顺序？答案

【问题标题】：Changing the fill order in a clustered geom_col?更改集群 geom_col 中的填充顺序？
【发布时间】：2021-12-21 01:56:56
【问题描述】：

我正在尝试手动重新排序我的情节中的条形簇。这是整个相关数据集：

Season  Set Density
Summer  Full set    0.020065
Summer  Set 2   0.017713
Summer  Set 3   0.015170
Summer  Set 4   0.018816
Autumn  Full set    0.009459
Autumn  Set 2   0.007937
Autumn  Set 3   0.008498
Autumn  Set 4   0.011544
Winter  Full set    0.017685
Winter  Set 2   0.015451
Winter  Set 3   0.013294
Winter  Set 4   0.016717
Spring  Full set    0.021445
Spring  Set 2   0.018672
Spring  Set 3   0.016526
Spring  Set 4   0.019715

还有ggplot 代码：

plot <-
  ggplot(arrange(data1day, Season), aes(x = Set, y = 100 * Density, fill = Season)) +
  geom_col(position = 'dodge', color = 'black') +
  theme_classic() +
  labs(x = "Subset of sites surveyed", y = "Density (%)") +
  scale_x_discrete(limits = c("Full set", "Set 2", "Set 3", "Set 4")) +
  scale_fill_brewer(limits = c("Summer", "Autumn", "Winter", "Spring"), palette = "Set2") +
  theme(text = element_text(size = 14, family = "serif", colour = "black")) +
  theme(axis.text.x = element_text(colour = "black")) +
  theme(axis.text.y = element_text(colour = "black"))

图例以正确的顺序（夏季、秋季、冬季、春季）列出了季节，颜色和条形对应于正确的数据（秋季总是最低），但条形与图例的顺序不匹配.我似乎无法在其他任何地方找到如何做到这一点。

【问题讨论】：

您是否尝试过将Season 更改为有序因子（我猜它是一个字符向量，然后ggplot 按字母顺序排序）？

标签： r ggplot2 fill geom-col

【解决方案1】：

你可以使用fct_relevel

library(dplyr)

data1day %>%
  arrange(Season) %>%
  mutate(Season = as.factor(Season),
         Season = fct_relevel(Season, "Summer", "Autumn", "Winter", "Spring")) %>%
  ggplot( aes(x = Set, y = 100 * Density, fill = Season)) +
  geom_col(position = 'dodge', color = 'black') +
  theme_classic() +
  labs(x = "Subset of sites surveyed", y = "Density (%)") +
  scale_x_discrete(limits = c("Full set", "Set 2", "Set 3", "Set 4")) +
  scale_fill_brewer(limits = c("Summer", "Autumn", "Winter", "Spring"), palette = "Set2") +
  theme(text = element_text(size = 14, family = "serif", colour = "black")) +
  theme(axis.text.x = element_text(colour = "black")) +
  theme(axis.text.y = element_text(colour = "black"))

【讨论】：