使用purrr向R中的嵌套数据帧添加计数序列

我有一个嵌套数据帧列表。我想向每个嵌套数据帧添加一列连续计数

这适用于典型的数据帧：

library(tidyverse)
mtcars %>% mutate(index = sequence(n()))

    mpg cyl  disp  hp drat    wt  qsec vs am gear carb index
1  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4     1
2  21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4     2
3  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1     3
4  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1     4
5  18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2     5

但它在嵌套结构中不起作用：

table <- 
tribble(~id, ~data, 1, mtcars) %>% 
mutate(data_index = map(data, ~mutate(.x, index = sequence(n()))))

table

# A tibble: 1 x 3
     id                   data             data_index
  <dbl>                 <list>                 <list>
1     1 <data.frame [32 x 11]> <data.frame [32 x 12]>

head(table$data_index[[1]])

   mpg cyl disp  hp drat    wt  qsec vs am gear carb index
1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4     1
2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4     1
3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1     1
4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1     1
5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2     1
6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1     1

表格%
mutate（data_index=map（data，~mutate（.x，index=sequence（n（））））
桌子
#一个tibble:1 x 3
id数据索引
1     1  
总目（表$data_索引[[1]]）
mpg气缸显示hp drat wt qsec与am齿轮carb索引
1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4     1
2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4     1
3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1     1
4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1     1
5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2     1
6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1     1

---

关于如何克服这个问题有什么想法吗？

我稍微修改了一下您的代码。键是

n（）

返回整个数据帧的行号，而不是

mtcars

。所以我改用了

nrow（.x）

library(tidyverse)

dt <- tribble(~id, ~data, 1, mtcars) 

dt2 <- dt %>% 
  mutate(data_index = map(data, ~mutate(.x, index = sequence(nrow(.x)))))
head(dt2$data_index[[1]])
#    mpg cyl disp  hp drat    wt  qsec vs am gear carb index
# 1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4     1
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4     2
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1     3
# 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1     4
# 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2     5
# 6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1     6

库（tidyverse）
dt