하나의 열에서 다른 열로 복사 인수 레벨 순서

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

, 당신은의 레벨을 설정 forcats을 사용할 수 있습니다 이 같은 rating의 순서에 의해 6,...

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)) 

줄거리는 다음 오른쪽 순서로 바있다.

Answer 2

을 대신 라벨 열을 추가하는과 aes(x = label을 사용하여, 당신은 aes(x = rating에 충실하고, labelsscale_x_discrete에서 만들 수 있습니다 :

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)) 

을 당신이 rating의 수준을 설정 한 후에