已知数据集 family，记录了一个家庭的成员的姓名，性别和出生年份。 family <- list(list("Bob", "M", 1982), list("Alice", "F", 1983), list("Jcak", "M", 2005)) a) 使用映射函数提取出该家庭其成员的姓名。 b) 使用映射函数计算该家庭其成员的年龄。

a) 可以使用 `map` 函数来提取家庭成员的姓名，具体实现如下：

family <- list(list("Bob", "M", 1982), list("Alice", "F", 1983), list("Jcak", "M", 2005))
names <- map(family, function(x) x[[1]])

这里 `map` 函数遍历 `family` 列表中的元素，对于每个元素，提取它的第一个元素（即姓名）。

b) 可以使用 `map` 函数计算家庭成员的年龄，具体实现如下：

family <- list(list("Bob", "M", 1982), list("Alice", "F", 1983), list("Jcak", "M", 2005))
ages <- map(family, function(x) 2021 - x[[3]])

这里 `map` 函数遍历 `family` 列表中的元素，对于每个元素，计算它的出生年份与当前年份的差值（即年龄）。