从 R 中的列表列表中获取行名

Question

从像结果这样的列表列表开始：

id <- c(1,2,3,4,5,1,2,3,4,5)
month <- c(3,4,2,1,5,7,3,1,8,9)
preds <- c(0.5,0.1,0.15,0.23,0.75,0.6,0.49,0.81,0.37,0.14)

l_1 <- data.frame(id, preds, month)

preds <- c(0.45,0.18,0.35,0.63,0.25,0.63,0.29,0.11,0.17,0.24)

l_2 <- data.frame(id, preds, month)

preds <- c(0.58,0.13,0.55,0.13,0.76,0.3,0.29,0.81,0.27,0.04)

l_3 <- data.frame(id, preds, month)

preds <- c(0.3,0.61,0.18,0.29,0.85,0.76,0.56,0.91,0.48,0.91)

l_4 <- data.frame(id, preds, month)

outcome <- list(l_1, l_2, l_3, l_4)

我的兴趣是采用分配的唯一行值并创建一个新变量，就像我们这样做一样：

sample <- outcome[[1]]
sample$unique_id <- rownames(sample)

但是，我不想手动去，因为我的列表有 100 个列表。 此外，我不想手动为每一行分配值，因为我想保留 R 生成的行名称。这怎么办？

Answer 1

我们也可以用

rownames_to_column

library(dplyr)
library(purrr)
library(tibble)
map(outcome, ~ .x %>%
    rownames_to_column('unique_id'))

Answer 2

与

lapply

和

cbind

：

lapply(outcome, function(x) {
  cbind(unique_id=rownames(x), x)
  })

Answer 3

另一个基础 R 选项是使用

Map

Map(function(x){
  x$unique_id <- rownames(x)
  x
}, outcome)

Answer 4

尝试使用

lapply

lapply(outcome, function(x) {
  x$unique_id <- rownames(x)
  x
  })