0

我在以下数据框中有一个字符列。我想将其更改为这样一种方式，即当我使用 ggplot 绘制结果时，我的 x 轴上的标签按特定顺序排列：

  df <-  structure(list(Level = c("1", "1", "1", "1", "1", "2", "1", "1"
), Variable = c("lskill_wc", "Grande_Estab", "lskill_wc", "lskill_bc", 
"hskill_wc", "balcadv", "hskill_bc", "Vinculos_Micro"), estimate = c(0.154462929180099, 
-0.00565989816383741, 0.127039272664461, 0.244657086455149, 0.153358091697942, 
-0.00769107968294057, -0.00592547333520778, 0.138216262540319
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-8L))

我想将前两列更改为因子，重新编码并更改它们的顺序：

  Level Correspondence
  <chr> <chr>         
1 1     A         
2 2     B    

  Variable       Correspondence         
  <chr>          <chr>                  
1 lskill_wc      Low skill white collar     
2 lskill_bc      Low skill blue collar  
3 hskill_bc      High skill white collar
4 Grande_Estab   Large firm                       
5 Vinculos_Micro Employment
6 balcadv        Comp. Adv

在图表上显示的顺序将是根据每Correspondence列中的一个给出的标签。

4

1 回答 1

1

由于您已完全更改了问题，因此我的原始答案已失效。我被迫改变它以避免吸引反对票。

在这种情况下，最好提出一个新问题。

答案的格式与原版完全相同；你似乎只是对你的因素水平感到困惑。你想要的因素排序列表实际上错过了一个 - “高技能蓝领工人”

labels <- c( "Comp. Adv", "Large firm", "High skill blue collar worker", 
             "High skill white collar worker", "Low skill blue collar worker",
             "Low skill white collar worker", "Employment")
df$label <- as.factor(df$Variable)
levels(df$label) <- labels
df$label <- factor(df$label, labels[c(6, 5, 4, 3, 2, 7, 1)])
df
#> # A tibble: 8 x 4
#>   Level Variable       estimate label                         
#>   <chr> <chr>             <dbl> <fct>                         
#> 1 1     lskill_wc       0.154   Low skill white collar worker 
#> 2 1     Grande_Estab   -0.00566 Large firm                    
#> 3 1     lskill_wc       0.127   Low skill white collar worker 
#> 4 1     lskill_bc       0.245   Low skill blue collar worker  
#> 5 1     hskill_wc       0.153   High skill white collar worker
#> 6 2     balcadv        -0.00769 Comp. Adv                     
#> 7 1     hskill_bc      -0.00593 High skill blue collar worker 
#> 8 1     Vinculos_Micro  0.138   Employment  

levels(df$label)
#> [1] "Low skill white collar worker"  "Low skill blue collar worker"  
#> [3] "High skill white collar worker" "High skill blue collar worker" 
#> [5] "Large firm"                     "Employment"                    
#> [7] "Comp. Adv"

由reprex 包（v0.3.0）于 2020 年 3 月 4 日创建

于 2020-03-03T22:30:03.160 回答