R lapply() 函数 - 列表应用
R 语言实例R lapply() 函数用于对列表或向量的每个元素应用一个函数，返回列表。
lapply() 是 R 中最重要的函数式编程工具之一，避免使用 for 循环。
lapply() 函数语法格式如下：
lapply(X, FUN, ...)
参数说明：
X 输入列表或向量。
FUN 要应用的函数。
... 传递给 FUN 的额外参数。
实例
# 对列表中的每个元素计算均值
list_data <- list(
group1 = c(85, 88, 90, 87, 92),
group2 = c(72, 75, 78, 70, 76),
group3 = c(90, 93, 88, 95, 91)
)
result <- lapply(list_data, mean)
print("各组的均值:")
print(result)
# 对数据框的每列计算范围
df <- data.frame(
数学 = c(88, 92, 76),
英语 = c(90, 88, 82),
编程 = c(85, 91, 78)
)
result2 <- lapply(df, range)
print("各列的范围:")
print(result2)
list_data <- list(
group1 = c(85, 88, 90, 87, 92),
group2 = c(72, 75, 78, 70, 76),
group3 = c(90, 93, 88, 95, 91)
)
result <- lapply(list_data, mean)
print("各组的均值:")
print(result)
# 对数据框的每列计算范围
df <- data.frame(
数学 = c(88, 92, 76),
英语 = c(90, 88, 82),
编程 = c(85, 91, 78)
)
result2 <- lapply(df, range)
print("各列的范围:")
print(result2)
执行以上代码输出结果为：
[1] "各组的均值:" $group1 [1] 88.4 $group2 [1] 74.2 $group3 [1] 91.4 [1] "各列的范围:" $数学 [1] 76 92 $英语 [1] 82 90 $编程 [1] 78 91