如何在R中用$运算符引用嵌套列表或tibble列表列的内部元素？

在R中，普通列表可直接通过==生成布尔向量，但当嵌套列表（每个元素是含$title和$year的图书列表）存储在tibble的book列时，直接用filter(books, book$year < 2000)或mutate()提取元素会失效——R会尝试查找books$book$year而非每个内部列表的$year。

当前基于lapply()的写法为：

filter(books, as.logical(lapply(books$book, function(x) x$year < 2000)))

以下是无需lapply()的替代方案：

1. 用purrr包的向量化提取函数（tidyverse推荐） #

purrr的map_*系列函数是lapply()的封装，但语法更简洁直观，自动返回目标向量类型：

library(dplyr)
library(purrr)

# 筛选2000年前出版的图书
filter(books, map_lgl(book, ~ .x$year < 2000))

# 提取所有图书标题生成新列
mutate(books, title = map_chr(book, "title"))

2. 用base R的sapply()自动简化输出 #

sapply()会自动将列表结果简化为向量，无需额外转换逻辑值：

# 筛选逻辑
filter(books, sapply(book, function(x) x$year < 2000))

# 提取标题列
mutate(books, title = sapply(book, "[[", "title"))

3. 用dplyr的rowwise()逐行处理 #

通过rowwise()让R对每行的嵌套列表单独求值，避免批量查找的歧义：

# 筛选操作
books %>%
  rowwise() %>%
  filter(book$year < 2000) %>%
  ungroup()

# 生成标题列
books %>%
  rowwise() %>%
  mutate(title = book$title) %>%
  ungroup()

4. 用base R的vapply()指定输出类型（更严谨） #

vapply()比sapply()更严谨，可提前指定返回值类型，避免意外结果：

# 筛选2000年前的图书
filter(books, vapply(book, function(x) x$year < 2000, logical(1)))

# 提取标题列
mutate(books, title = vapply(book, "[[", character(1), "title"))

内容的提问来源于stack exchange，提问作者Stefan Lapointe