Функция lapply() в R — применение к списку
Примеры на языке RФункция lapply() в R используется для применения функции к каждому элементу списка или вектора, возвращая список.
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(
Math= 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(
Math= 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Другие расширения