R 根据另一个列表对数据框列进行排序

我有一个像这样的数据框

 aa   bb   cc   
 -------------
 1    aa    1   
 1    dd    10   
 2    bb    11   
 2    cc    20   
 3    cc    29   
 3    dd    39   
 3    aa    33   
 4    ee    35   
 4    cc    14   

我希望上面的数据框按“bb”列排序，这与我作为额外输入的顺序不同。例如，列“bb”的顺序应该如下{cc，aa，dd，bb，ff，ee}但行完整性应该保持

 aa   bb   cc   
 -------------
 1    aa    1   
 1    dd    10   
 2    cc    20   
 2    bb    11  
 3    cc    20   
 3    aa    33   
 3    dd    39   
 4    cc    14   
 4    ee    35   

R输入码

d1 <- read.table(header = TRUE, sep = ";", text = 
"aa;bb;cc
1;aa;1
1;dd;10
2;cc;20
2;bb;11
3;cc;20
3;aa;33
3;dd;39
4;cc;14
4;ee;35"   )

d2 <- c( "cc","aa","dd","bb","ff","ee")

---

d1您可以在此处使用因子（带标签的数字变量）的优良特性：

#创建一个因子，按d2进行分级
d1$bb
d1哇。谢谢你的快速回复。你的回答很有帮助。谢谢你的回答。
#create a factor, level it by d2
d1$bb <- factor(d1$bb, levels=d2)

#order
output <- d1[order(d1$bb),] ## i made a simple edit here
    > output
  aa bb cc
3  2 cc 20
5  3 cc 20
8  4 cc 14
1  1 aa  1
6  3 aa 33
2  1 dd 10
7  3 dd 39
4  2 bb 11
9  4 ee 35

d1 <- read.table(header = TRUE, sep = ";", text = 
                   "aa;bb;cc
1;aa;1
1;dd;10
2;cc;20
2;bb;11
3;cc;20
3;aa;33
3;dd;39
4;cc;14
4;ee;35")

library(plyr)
d2 <- ddply(d1, .(aa), function(df){
  df$bb <- ordered(df$bb, levels=c( "cc","aa","dd","bb","ff","ee"))
  return(df)
})

d2
#   aa bb cc
# 1  1 aa  1
# 2  1 dd 10
# 3  2 cc 20
# 4  2 bb 11
# 5  3 cc 20
# 6  3 aa 33
# 7  3 dd 39
# 8  4 cc 14
# 9  4 ee 35