使用R中列表中的值运行循环

# 创建一个包含多个值的列表
my_list <- list(a = 1:3, b = c("apple", "banana", "orange"), c = matrix(1:9, nrow = 3))

# 使用for循环遍历列表中的每个元素
for (i in 1:length(my_list)) {
  # 获取列表中的值
  value <- my_list[[i]]
  
  # 在循环中使用值进行操作
  if (is.numeric(value)) {
    # 如果值是数值型，则计算平均值
    mean_value <- mean(value)
    print(paste("Mean value:", mean_value))
  } else if (is.character(value)) {
    # 如果值是字符型，则打印每个字符
    for (j in 1:length(value)) {
      print(paste("Character:", value[j]))
    }
  } else if (is.matrix(value)) {
    # 如果值是矩阵，则计算每列的和
    col_sums <- colSums(value)
    print(paste("Column sums:", col_sums))
  }
}