在列表中递归创建新列

Question

我有以下矢量：

x<-c("x1","x2")

假设我有以下列表，其中包含两个数据帧：

列表（df1，df2）

其中df1和df2是两个不同的数据框

我想要做的是在此列表中的每个dafarame中创建一个新列，以递归方式获取向量x的值

OLD list <- list(df1,df2) 

手动操作后：

df1$var<- x[1]
df2$var<- x[2]

所以我的新名单

Newlist<-list(df1,df2)

这就是我的尝试：

for (i in 1:length(x)) {
  old.list[[i]]$var<-x[i]
}

new.list<-old.list

但是，考虑到我的x向量在我的情况下非常大，是否有任何有效的代码。