将因子水平顺序从一列复制到另一列

Question

我在 data.frame 中有两列，它们的级别应该按相同的顺序排序，但我不知道如何以直接的方式进行排序。

情况如下：

library(ggplot2)
library(dplyr)
library(magrittr)
set.seed(1)
df1 <- data.frame(rating = sample(c("GOOD","BAD","AVERAGE"),10,T),
                  div = sample(c("A","B","C"),10,T),
                  n = sample(100,10,T))

# I'm adding a label column that I use for plotting purposes
df1 <- df1 %>% group_by(rating) %>% mutate(label = paste0(rating," (",sum(n),")")) %>% ungroup
# # A tibble: 10 x 4
#     rating    div     n         label
#     <fctr> <fctr> <int>         <chr>
#  1     BAD      C    48     BAD (220)
#  2     BAD      B    87     BAD (220)
#  3     BAD      C    44     BAD (220)
#  4    GOOD      B    25     GOOD (77)
#  5 AVERAGE      B     8 AVERAGE (117)
#  6 AVERAGE      C    10 AVERAGE (117)
#  7 AVERAGE      A    32 AVERAGE (117)
#  8    GOOD      B    52     GOOD (77)
#  9 AVERAGE      C    67 AVERAGE (117)
# 10     BAD      C    41     BAD (220)

# rating levels are sorted
df1$rating <- factor(df1$rating,c("BAD","AVERAGE","GOOD"))

ggplot(df1,aes(x=rating,y=n,fill=div)) + geom_col() # plots in the order I want
ggplot(df1,aes(x=label,y=n,fill=div)) + geom_col()  # doesn't because levels aren't sorted

如何设法将因子顺序从一列复制到另一列？我可以让它以这种方式工作，但我认为它真的很尴尬：

lvls <- df1 %>% select(rating,label) %>% unique %>% arrange(rating) %>% extract2("label")
df1$label <- factor(df1$label,lvls)
ggplot(df1,aes(x=label,y=n,fill=div)) + geom_col()

Answer 1

您可以坚持使用 aes(x = rating，而不是添加标签列并使用 aes(x = label，并在 scale_x_discrete:

中创建 labels

ggplot(df1, aes(x = rating, y = n, fill = div)) +
  geom_col() +
  scale_x_discrete(labels = df1 %>%
                     group_by(rating) %>%
                     summarize(n = sum(n)) %>%
                     mutate(lab = paste0(rating, " (", n, ")")) %>%
                     pull(lab))

Answer 2

一旦你设置了rating的级别，你可以使用forcats按照rating的顺序设置label的级别...

library(forcats)
df1 <- df1 %>% group_by(rating) %>% 
               mutate(label=paste0(rating," (",sum(n),")")) %>% 
               ungroup %>% 
               arrange(rating) %>%              #sort by rating
               mutate(label=fct_inorder(label)) #set levels by order in which they appear

或者您可以使用 forcats::fct_reorder 做同样的事情...

df1$label <- fct_reorder(df1$label, as.numeric(df1$rating))

绘图中的条形图顺序正确。

将因子水平顺序从一列复制到另一列

copy factor level order from one column to another

r

levels