将函数应用于 R 中的数据帧列表

我需要有关如何以迭代方式管理列表的帮助。

我有以下清单list它由多个具有相同列但行数不同的数据框组成。例子：

[[1]]
  id InpatientDays ERVisits OfficeVisits Narcotics
1  a             0        0           18         1
2  b             1        1            6         1
3  c             0        0            5         3
4  d             0        1           19         0
5  e             8        2           19         3
6  f             2        0            9         2

[[2]]
    id InpatientDays ERVisits OfficeVisits Narcotics
7   a            16        1            8         1
8   b             2        0            8         0
9   c             2        1            4         3
10  d             4        2            0         2
11  e             6        5           20         2
12  a             0        0            7         4

我想应用一个函数来获取列表中每个“数据框”的 id 的所有可能组合。

我打算尝试这样的事情lapply(list1, function(x) combn(unique(list1[x]$id)))这当然是行不通的..期望得到类似的东西：

[[1]]  
    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15]
[1,] "a"  "a"  "a"  "a"  "a"  "b"  "b"  "b"  "b"  "c"   "c"   "c"   "d"   "d"   "e"  
[2,] "b"  "c"  "d"  "e"  "f"  "c"  "d"  "e"  "f"  "d"   "e"   "f"   "e"   "f"   "f"  

[[2]] 
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] "a"  "a"  "a"  "a"  "b"  "b"  "b"  "c"  "c"  "d"  
[2,] "b"  "c"  "d"  "e"  "c"  "d"  "e"  "d"  "e"  "e" 

这可能吗？我确信这适用于单个数据框df

  combn(unique(df$id),2) 

我们需要使用unique(x$id)

 lapply(list1, function(x) combn(unique(x$id),2))

OP的代码正在循环使用“list1”lapply。匿名函数调用（function(x)）返回其中的每个“data.frame”list即“x”是“data.frame”。所以，我们只需要调用x$id (or x[['id']]）来提取“id”列。本质上，“x”不是索引。但是，如果我们需要基于索引进行子集化，我们必须循环遍历“list1”的序列（或者如果list元素被命名，然后循环names of it)

lapply(seq_along(list1), function(i) combn(unique(list1[[i]]$id), 2))