ggplot2：对图例中的项目重新排序

Question

我有一个堆积条形图，我想重新排序图例的显示方式。我希望图例显示“社会”、“经济”和“环境”的顺序，但保持颜色相同。我一直在尝试不同的解决方案，但我是新手，可能写错了！

我认为我的方向是正确的，但它不起作用：

mortality_df$subsystem <- factor(mortality_df$subsystem, levels = c("Social", "Economic", "Environmental"))

没有对图例重新排序的代码：

mortality_df <- results_df %>%
  pivot_longer(
    cols = starts_with("imp_"),
    names_to = "mortality",
    names_prefix = "imp_",
    values_to = "importance"
  ) %>%
  relocate(c(feature, subsystem, mortality, importance, label))

mortality_df

diabetes_plot <- mortality_df %>%
  filter(mortality == "diabetes") %>%
  filter(importance > 0) %>%
  ggplot(aes(x = reorder(label, importance), y = importance, fill = subsystem)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  scale_y_continuous(name = "Importance Score") +
  scale_x_discrete(name = "") +
  theme_minimal() +
  theme(aspect.ratio = 1.45)

diabetes_plot

这创造了这个：

糖尿病情节

Answer 1

您可以通过两种主要方式更改图例中项目的顺序：

1. 重构数据集中的列并指定级别。这应该是您在问题中指定的方式，只要您将其正确放置在代码中即可。

2. scale_fill_*使用参数通过函数指定排序breaks=。

mpg以下是如何使用内置数据集的子集作为示例来执行此操作。首先，这是标准图：

library(ggplot2)
library(dplyr)

p <- mpg %>%
  dplyr::filter(class %in% c('compact', 'pickup', 'minivan', 'suv')) %>%
  ggplot(aes(x=factor(year), fill=class)) +
  geom_bar() + coord_flip()
p 

通过重构更改顺序

这里的关键是确保您在绘图代码factor(...) 之前使用。%>%如果您尝试将它们通过管道连接在一起（即）或在绘图代码内进行重构，结果将会是混合的。

还要注意，与原始图相比，我们的颜色发生了变化。这是因为ggplot根据每个图例键在 中的位置将颜色值分配给它们levels(...)。换句话说，因子中的第一个级别获取比例中的第一种颜色，第二个级别获取第二种颜色，依此类推......

d <- mpg %>% dplyr::filter(class %in% c('compact', 'pickup', 'minivan', 'suv'))

d$class <- factor(d$class, levels=c('compact', 'suv', 'pickup', 'minivan'))

p <-
  d %>% ggplot(aes(x=factor(year), fill=class)) +
  geom_bar() +
  coord_flip()

使用缩放功能更改按键顺序

最简单的解决方案可能是使用其中一个scale_*_*函数来设置图例中按键的顺序。这只会改变最终图中与原始图中键的顺序。绘图区域面板中几何图形的图层放置、排序和着色将保持不变。我相信这就是您想要做的。

您想要访问函数breaks=的参数scale_fill_discrete()- 而不是limits=参数。

p + scale_fill_discrete(breaks=c('compact', 'suv', 'pickup', 'minivan'))