添加一个新的列到数据框的列表，但只选择一个矢量的一行

Question

我有一个数据框的列表，我试图添加一个矢量的相应元素作为所有观察值的新变量到列表的每个数据帧。

我的问题是：是否有某种“索引”跟踪lapply函数现在在哪一步？我无法找到任何东西，但它会解决我的问题，我相信因为我不需要循环，只能使用timevar <- time[magic.index]我认为这个例子使我的意思更清晰。

#list of data frames 
df1 <- data.frame("Var1" = c(1:10)) 
df2 <- data.frame("Var1" = c(1:10),"Var2" = c(1:10)) 
df3 <- data.frame("Var1" = c(1:10),"Var2" = c(1:10),"Var3" = c(1:10)) 
dfs <- list(df1,df3,df2) 

time <- c(1,2,1) 

#this is what I want to do with lapply 
lapply(dfs, function(x) within(x, timevar <- 1)) 

dfs2 <- for (i in seq_along(dfs)){ 
lapply(dfs, function(x) within(x, timevar <- time)) 
} 

#this is what the result should look like 
dfs[[1]] <- within(dfs[[1]], timevar <- 1) 
dfs[[2]] <- within(dfs[[2]], timevar <- 2) 
dfs[[3]] <- within(dfs[[3]], timevar <- 1) 
dfs 

Answer 1

我们可以使用Map通过cbind荷兰国际集团与在“时间”矢量的元素“DFS”相应list元素来创建一个“timevar”列。

Map(cbind, dfs, timevar = time) 
#[[1]] 
# Var1 timevar 
#1  1  1 
#2  2  1 
#3  3  1 
#4  4  1 
#5  5  1 
#6  6  1 
#7  7  1 
#8  8  1 
#9  9  1 
#10 10  1 

#[[2]] 
# Var1 Var2 Var3 timevar 
#1  1 1 1  2 
#2  2 2 2  2 
#3  3 3 3  2 
#4  4 4 4  2 
#5  5 5 5  2 
#6  6 6 6  2 
#7  7 7 7  2 
#8  8 8 8  2 
#9  9 9 9  2 
#10 10 10 10  2 

#[[3]] 
# Var1 Var2 timevar 
#1  1 1  1 
#2  2 2  1 
#3  3 3  1 
#4  4 4  1 
#5  5 5  1 
#6  6 6  1 
#7  7 7  1 
#8  8 8  1 
#9  9 9  1 
#10 10 10  1 

---

如果我们使用hadleyverse，在map2从purrr可能是有用的，以及

library(purrr) 
dfs %>% 
    map2(time, ~cbind(.x, timevar=.y)) 

Answer 2

这是怎么回事？

lapply(seq_len(length(dfs)),function(t) cbind(dfs[[t]],time[t]))