如何使用2个因素订购GEOM_COL图的X轴？

Question

我已经尝试了此站点上类似问题的方法，但仍然无法弄清楚这一点。

我正在使用Kaggle的泰坦尼克号数据集。我要寻找的最终结果是，在每个PCLASS因子中，我希望Age.Class（bars）从低到高排序的n。我的尝试在下面。

library(tidyverse)
library(titanic)


df <- titanic::titanic_train

head(df)

# Start -------------------------------------------------------------------
df = df %>% 
  mutate(has.cabin = if_else(Cabin == '', 0, 1) %>% as.factor(),
         Pclass = Pclass %>% as.factor(),
         age.class = case_when(
           Age < 5  ~ 'baby',
           Age >5 & Age < 12 ~ 'Child',
           Age > 12 & Age < 18 ~ 'Teen', 
           Age > 18 & Age < 25 ~ 'Young Adult',
           Age > 25 & Age <35 ~ 'Mid Adult', 
           Age > 35 & Age < 60 ~  'Adult', 
           Age > 60 ~ 'Elderly',
           TRUE ~ 'Undefined'
                              )
         )

plot.data = df %>% count(has.cabin, Pclass, age.class) 
  

lvls <- unique(plot.data$Pclass[order(plot.data$age.class,-plot.data$n)])
plot.data$age.classv2 = factor(plot.data$age.class, levels=lvls)

plot.data %>% 
  ggplot(., aes(x = Pclass, y = n, fill = age.class)) + 
  geom_col(position = 'dodge') + 
  facet_grid(~ has.cabin)

Answer 1

我不知道一种简单的方法可以在方面内的一个因素内订购因素。有函数

• forcats :: fct_reorder 重新排序因子
• tidytext :: reorder_within 在一个方面重新排序一个因子，

我使用了第二个因子，我使用了第二个因素，并由 pclass进行了。 和2个图，一个用于 has.cabin == 0 ，一个用于 has.cabin == 1 和之后将它们缝合在一起。

一个人需要一个单独的变量，用于填充参数，因为内部， reorder_within 在附加的facet名称上生成了几个变量。如果您不使用额外的变量，则会看到这些名称，请参阅。

library(titanic)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(tidytext)
library(ggplot2)
library(patchwork)

df <- titanic::titanic_train

df <- df %>% 
  mutate(has.cabin = if_else(Cabin == '', 0, 1) %>% as.factor(),
         Pclass = as.factor(Pclass),
         age.class = case_when(
           Age < 5  ~ 'baby',
           Age >5 & Age < 12 ~ 'Child',
           Age > 12 & Age < 18 ~ 'Teen', 
           Age > 18 & Age < 25 ~ 'Young Adult',
           Age > 25 & Age <35 ~ 'Mid Adult', 
           Age > 35 & Age < 60 ~  'Adult', 
           Age > 60 ~ 'Elderly',
           TRUE ~ 'Undefined'
         )
  )

p1 <- df %>%
  count(has.cabin, Pclass, age.class) %>% 
  filter(has.cabin == "0") %>% 
  mutate(age.class.plot = reorder_within(age.class, n, Pclass),
         Pclass = paste0("Plcass ", Pclass)) %>% 
  ggplot(aes(x = age.class.plot, y = n, fill = age.class)) + 
  geom_col(position = 'dodge') + 
  scale_x_reordered() +
  facet_grid(~ Pclass, scales = "free_x") +
  theme(
    axis.title.x = element_blank(),
    axis.ticks.x = element_blank(),
    axis.text.x = element_blank()
  ) +
  labs(title = "has.cabin 0") +
  coord_cartesian(ylim = c(0, 180))

p2 <- df %>%
  count(has.cabin, Pclass, age.class) %>% 
  filter(has.cabin == "1") %>% 
  mutate(age.class.plot = reorder_within(age.class, n, Pclass),
         Pclass = paste0("Plcass ", Pclass)) %>% 
  ggplot(aes(x = age.class.plot, y = n, fill = age.class)) + 
  geom_col(position = 'dodge') + 
  scale_x_reordered() +
  facet_grid(~ Pclass, scales = "free_x") +
  theme(
    axis.title = element_blank(),
    axis.ticks = element_blank(),
    axis.text = element_blank()
  ) +
  labs(title = "has.cabin 1") +
  coord_cartesian(ylim = c(0, 180))

p1 + p2 + plot_layout(guides = "collect")

^{由 reprex软件包（v1.0.0）}

我想为了重新订购一个因素，一个因素需要调整 reorder_within 。