在R中的变异函数中使用列表

# 创建一个包含多个对象的列表
my_list <- list(
  data_frame = data.frame(a = 1:5, b = letters[1:5]),
  numeric_vector = c(1, 2, 3, 4, 5),
  character_vector = c("apple", "banana", "orange"),
  matrix = matrix(1:9, nrow = 3)
)

# 对列表中的对象进行变异操作
mutated_list <- lapply(my_list, function(x) {
  # 对于数据框对象，可以使用dplyr包中的mutate函数进行变异
  if (is.data.frame(x)) {
    library(dplyr)
    mutate(x, new_column = a + 1)
  }
  # 对于数值向量对象，可以进行相应的变异操作
  else if (is.numeric(x)) {
    x + 1
  }
  # 对于字符向量对象，可以进行相应的变异操作
  else if (is.character(x)) {
    paste0(x, "s")
  }
  # 对于矩阵对象，可以进行相应的变异操作
  else if (is.matrix(x)) {
    x + 1
  }
})

# 查看变异后的列表对象
print(mutated_list)