將數字變量轉換為有序因子的最佳方法

Question

我有一個看起來像這樣的數據框：

df1 <- data.frame(V1=rnorm(n = 100, mean=0, sd=1),
                  Edu=sample(x = c(-999,12,13,14,16,1), size = 100, 
                             replace = T, prob = c(0.05,0.2,.2,0.2,0.2,0.15)))

我想將變量Edu轉換為有序因子變量。 我可以使用以下代碼將其轉換為字符變量：

lutedu <- c('-999' = NA, '12' = "High School", '13' = "Associate's", 
         '14' = "Associate's", '16' = "Bachelor's", 
         '18' = "Master's, Graduate/professional", '21' = "PhD")

df1$Edu <- lutedu[as.character(df1$Edu)]

然后從那里我可以使用ordered()將字符變量轉換為有序因子：

df1$Edu <-
  ordered(
    x = df1$Edu, levels = c(
      "High School", "Associate's", "Bachelor's",
      "Master's, Graduate/professional", "PhD"
    )
  )

有更好的方法嗎？

Answer 1

無需使用命名的矢量進行編碼，然后調用ordered ，可以通過調用ordered並同時使用levels和labels參數來節省步驟：

ordered(edu, levels=c(-999, 12, 13, 14, 16, 1),
        labels=c("NA", "High School", "Associate's", "Bachelor's",
                 "Master's/Graduate", "PhD"))
#   [1] High School       Master's/Graduate Master's/Graduate Bachelor's        Associate's      
#   [6] Master's/Graduate High School       Master's/Graduate High School       PhD              
# ...

資料 ：

set.seed(144)
edu <- sample(x = c(-999,12,13,14,16,1), size = 100, 
              replace = T, prob = c(0.05,0.2,.2,0.2,0.2,0.15))