R层函数通过调用数据集列返回NULL

Question

我正在尝试查找数据集中特定列的级别。

假设我的数据集如下：

    df
    apple    orange
      1        3
      2        4
      4        7
      3        1
      2        4
      .        3
      1        2

在我的原始数据集中，苹果列的结构与控制台中显示的内容相同：

  <chr>          
   1 7              
   2 2              
   3 4              
   4 1              
   5 1              
   6 6              
   7 5              
   8 2              
   9 4              
   10 2              
   # ... with 17,273 more rows

我确保通过以下函数将每一列转换为因数并消除缺失：

    convert_missing <- function(x){

       column <- as.character(x)
       column[is.na(column)] <- "Missing_"
       column <- as.factor(column)
       column <- factor(column, levels(column)[order(as.numeric(levels(column)))])
       return(column)
    }

然后，如果我将df中的一列传递给convert_missing并提取该列的级别，我不确定为什么我总是收到NULL作为结果，例如：

  df_vars <- list()
  df["apple"] <-lapply(df["apple"],convert_missing)
  df_vars[["DV_Levels"]] <- levels(df[, "apple"]) #this returns NULL

任何帮助将不胜感激！