我想对一个数据框内的一个因子进行升序排序
原始代码：
l1 <- within(leadership,{
  age.type <- NA
  age.type[age>44] <- "rich"
  age.type[age>=30 &age <=44] <- "almost rich"
  age.type[age<30] <-"poor"
  as.factor(age.type)
  factor(age.type,order= TRUE,levels = c("poor","almost rich","rich"))
  sort(l1$age.type)
})
l1[order(l1$age.type),]
但是返回值却不是按照我的排序（不应该是poor,poor,almost rich,rich吗。。。）