将 lapply 与您自己的函数一起使用

正如 Filip 在教学视频中解释的，您也可以在自己的函数上使用 lapply()。您只需编写一个新函数，并确保它在工作空间中可用。之后，您就可以像使用 R 基础函数那样，在 lapply() 中调用它。

在上一个练习中，您已经使用过一次 lapply()，把关于您最喜欢的开创性统计学家的信息转换为由两个字符串组成的向量列表。现在来编写一些代码，分别选取姓名和出生年份。

示例代码已包含定义 select_first() 的代码。该函数以向量为输入，并返回该向量的第一个元素。

本练习是课程的一部分

R 中级

查看课程

练习说明

使用 lapply() 将 select_first() 应用于 split_low 的各个元素，并将结果赋值给新变量 names。
接着，编写函数 select_second()，对输入向量的第二个元素执行完全相同的操作。
最后，将 select_second() 应用于 split_low，并将输出赋值给变量 years。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Code from previous exercise:
pioneers <- c("GAUSS:1777", "BAYES:1702", "PASCAL:1623", "PEARSON:1857")
split <- strsplit(pioneers, split = ":")
split_low <- lapply(split, tolower)

# Write function select_first()
select_first <- function(x) {
  x[1]
}

# Apply select_first() over split_low: names


# Write function select_second()




# Apply select_second() over split_low: years

编辑并运行代码