添加一個新的列到數據框的列表，但只選擇一個矢量的一行

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]))