如何将函数的结果应用于data.frame (R)的因子？

# 创建一个包含因子列的data.frame
df <- data.frame(A = c("apple", "banana", "orange"),
                 B = c(1, 2, 3),
                 stringsAsFactors = TRUE)

# 定义一个函数，将字符串转换为大写
to_upper <- function(x) {
  return(toupper(x))
}

# 使用lapply函数将函数应用于data.frame的因子列
df <- data.frame(lapply(df, function(x) {
  if (is.factor(x)) {
    return(factor(to_upper(as.character(x))))
  } else {
    return(x)
  }
}))

# 打印转换后的data.frame
print(df)