R语言：如何用[[ ]]提取列表元素并结合sapply运用方括号语法

嘿，这个问题其实很简单——你可能不知道，在R里[[本身就是一个可以直接调用的函数！所以完全可以把它直接传给sapply，替代原来的匿名函数写法，代码会简洁很多。

我给你举几个具体的例子，一看就懂：

场景1：提取每个子列表的第N个元素 #

假设你有这样一个列表：

my_list <- list(a = c(10, 20, 30), b = c(40, 50, 60), c = c(70, 80, 90))

原来你可能会这么写（用匿名函数）：

# 提取每个子列表的第1个元素
sapply(my_list, function(x) x[[1]])

现在换成[[函数的写法，直接把[[当作函数传给sapply，同时指定要提取的索引：

sapply(my_list, `[[`, 1)
# 输出结果：a  b  c 
#          10 40 70

这里要注意把[[用反引号括起来，因为它是特殊运算符，R需要识别它作为函数名。

场景2：按名字提取每个子列表的指定元素 #

如果你的列表里每个子元素都是带命名的列表，比如：

my_nested_list <- list(
  user1 = list(name = "Alice", age = 30),
  user2 = list(name = "Bob", age = 25),
  user3 = list(name = "Charlie", age = 35)
)

原来的写法可能是：

sapply(my_nested_list, function(x) x[["age"]])

换成简洁的[[写法：

sapply(my_nested_list, `[[`, "age")
# 输出结果：user1 user2 user3 
#          30    25    35

为什么这能行？ #

sapply的第二个参数接受任何函数，[[作为函数时，第一个参数是要操作的对象（这里就是每个子列表元素），第二个参数是提取的索引或名字。sapply会自动把列表里的每个元素依次传给[[函数的第一个参数，而我们指定的第三个参数（1或者"age"）就作为[[的第二个参数，完美替代了匿名函数里的重复代码。

如果你的需求是每个子列表提取不同位置/名字的元素，那还是需要用匿名函数，但如果是统一提取相同位置或命名的元素，这种写法绝对是最简洁的！

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