3

使用plyr's llplyover的优点lapply是它保留了列表名称。见?llply解释。我喜欢这个功能，但在嵌套列表的情况下似乎无法让它工作。例子：

library(plyr) 
m <- as.list(1:2)
names(m) <- c('M1', 'M2')
foo <- list(m, m)
names(foo) <- paste0("R", 1:2)


result <- ldply(foo, function(x){
        ldply(x, function(z) { data.frame(a=z, b= z^2)})
})
> result
  .id a b
1  M1 1 1
2  M2 2 4
3  M1 1 1
4  M2 2 4

# if I don't operate on the inner list, I can preserve the outer list's names
result2 <- ldply(foo, function(x){
     data.frame(a = x[[1]], b = x[[1]]^2)
    })
> result2
  .id a b
1  R1 1 1
2  R2 1 1

请注意，result不包含R1and R2（它会被添加进来，就.id好像我没有对fooas 的每个元素内的嵌套列表进行操作一样result2）。如何确保在处理嵌套列表时添加了外部列表名称？

4

2 回答 2

5

It seems that the column name is the problem:

result <- ldply(foo, function(x){
    df <- ldply(x, function(z) { data.frame(a=z, b= z^2)})
    names(df)[1] <- ".id2"; df
})
result
  .id .id2 a b
1  R1   M1 1 1
2  R1   M2 2 4
3  R2   M1 1 1
4  R2   M2 2 4
于 2012-10-18T21:44:20.367 回答
3

问题是如果已经有一个变量，ldply则不会分配给该变量。.id如果你看ldply一次你内心的结果，那很好：

> ldply(foo[[1]], function(z) { data.frame(a=z, b= z^2)})
  .id a b
1  M1 1 1
2  M2 2 4

将其重命名并按预期工作。

result <- ldply(foo, function(x){
    rename(ldply(x, function(z) { data.frame(a=z, b= z^2)}),
           c(".id" = ".id2"))
})

给

> result
  .id .id2 a b
1  R1   M1 1 1
2  R1   M2 2 4
3  R2   M1 1 1
4  R2   M2 2 4
于 2012-10-18T21:46:06.607 回答