r - 访问函数内的plyr id变量

Question

我经常遇到的问题是在使用 d*ply 时需要访问实际的 id 变量或 l*ply .一个简单(但毫无意义)的例子是:

df1 <- data.frame( p = c("a", "a", "b", "b"), q = 1:4 )
df2 <- data.frame( m = c("a", "b" ), n = 1:2 )

d_ply( df1, "p", function(x){
 actualId <- unique( x$p )
 print( mean(x$q)^df2[ df2$m == actualId, "n" ] )
})

所以在 d*ply 的情况下我可以帮助自己的功能 unique( x$p ) .但是说到 l*ply ，我不知道如何访问相应列表元素的名称。

l_ply( list(a = 1, b = 2, c = 3), function(x){
  print( <missing code> )
})
# desired output
[1] "a"
[1] "b"
[1] "c"

有什么建议？有什么我忽略的吗？

Answer 1

我解决这个问题的一种方法是遍历索引(名称)并在函数内进行子集化。

l <- list(a = 1, b = 2, c = 3)
l_ply(names(l), function(x){
  print(x)
  myl <- l[[x]]
  print(myl)
})

myl然后将与

l_ply(l, function(myl) {
  print(myl)
})