如何在R中遍历多个对象

# 示例：遍历向量
vec <- c(1, 2, 3, 4, 5)
for (i in vec) {
  print(i)
}

# 示例：遍历列表
lst <- list(a = 1, b = 2, c = 3)
for (item in lst) {
  print(item)
}

# 示例：使用 lapply 遍历列表
lst <- list(a = 1:3, b = 4:6, c = 7:9)
result <- lapply(lst, sum)
print(result)

# 示例：使用 sapply 遍历列表
result <- sapply(lst, sum)
print(result)

# 安装和加载 purrr 包
install.packages("purrr")
library(purrr)

# 示例：使用 map 遍历列表
lst <- list(a = 1:3, b = 4:6, c = 7:9)
result <- map(lst, sum)
print(result)

# 示例：处理列表中的 NULL 值
lst <- list(a = 1:3, b = NULL, c = 7:9)
result <- map(lst, ~ if (!is.null(.)) sum(.) else 0)
print(result)

# 示例：使用 tryCatch 捕获错误
lst <- list(a = 1:3, b = "error", c = 7:9)
result <- map(lst, ~ tryCatch(sum(.), error = function(e) NA))
print(result)