如何在Base R中基于数据框名称列表使用lapply执行函数？

你遇到的报错是因为lapply把字符向量里的每个字符串直接传给了print_func，而字符串是一维的，没法用[1,1]这种二维索引。下面是两种纯Base R的解决办法：

方法1：在函数里用get()获取实际数据框 #

通过get()函数，把字符串对应的环境中的数据框对象取出来，再进行索引操作：

# 使用R内置的iris数据集
data1 <- iris
data2 <- iris
data3 <- iris

list1 <- c("data1","data2","data3")

print_func <- function(x){
  df <- get(x) # 把字符名称转换成对应的数据框对象
  print(df[1,1]) # 打印每个数据框的第一行第一列元素
}

lapply(list1, print_func)

运行后会输出三个[1] 5.1，符合预期。

方法2：直接创建数据框对象的列表（更推荐） #

没必要绕弯子用字符名称列表，直接把数据框放进列表里，lapply可以直接处理数据框对象：

# 使用R内置的iris数据集
data1 <- iris
data2 <- iris
data3 <- iris

# 直接创建数据框对象的列表
df_list <- list(data1, data2, data3)
# 如果需要保留名称，也可以用命名列表：df_list <- list(data1 = data1, data2 = data2, data3 = data3)

print_func <- function(x){
  print(x[1,1])
}

lapply(df_list, print_func)

这种方法更直观，也减少了因字符名称出错的概率，是处理多个数据框更常规的方式。

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