Facet_wrap 未按其值正确排序图

Posted 2023-02-16

【中文标题】Facet_wrap 未按其值正确排序图

【英文标题】：Facet_wrap isn't properly ordering plots by its values

【发布时间】：2022-01-16 15:16:14

【问题描述】：

我正在尝试使用facet_wrap() 按价值排列我的地块，但是其中一些不在销售利润订单中。这是图片：

我的代码：

Lucro_Categorias %>%
  mutate(Categoria = Categoria %>%
  as_factor() %>%
  fct_reorder(Lucro)) %>%
  ggplot(aes(x = Ano, y = Lucro, fill = Categoria, order = -Lucro)) +
  geom_col() +
  facet_wrap(~ Categoria, scales = "free_y") +
  theme_tq() +
  scale_y_continuous(labels = scales::dollar_format(prefix = "", suffix = "", big.mark = ".", decimal.mark = ","))

Here 和 here 是源数据文件。

如何将两个黑色圆圈图移动到我设置箭头的位置？

【参考方案1】：

您需要设置分面因子的级别（在您的情况下，Categoria 而不是 Species）。 这是一个更简单的可重现示例：

library(tidyverse)

# default order of facets (usually alphabetical)
iris %>%
  qplot(Sepal.Length, Sepal.Width, data = .) + facet_wrap(~Species)

# set ordering of factes manually
new_order <- c("virginica", "setosa", "versicolor")
iris %>%
  mutate(Species = Species %>% fct_relevel(new_order)) %>%
  qplot(Sepal.Length, Sepal.Width, data = .) + facet_wrap(~Species)

# set ordering of factes using another variable
iris %>%
  mutate(Species = Species %>% fct_reorder(Sepal.Width)) %>%
  qplot(Sepal.Length, Sepal.Width, data = .) + facet_wrap(~Species)