R 向列表的每个数据帧添加列并应用函数

我有一个数据帧列表[14]（sujets）。我想在列表的每个数据框中添加一列。每个数据帧的列数相同，但行数不同

> summary(sujets)
         Length Class      Mode
Sujet 1  85     data.frame list
Sujet2   85     data.frame list  
Sujet 3  85     data.frame list
SUjet 4  85     data.frame list
Sujet 5  85     data.frame list
Sujet 6  85     data.frame list 
Sujet 7  85     data.frame list
Sujet 8  85     data.frame list
Sujet 9  85     data.frame list
Sujet 10 85     data.frame list
Sujet 11 85     data.frame list
Sujet 12 85     data.frame list
SUjet 13 85     data.frame list
Sujet 14 85     data.frame list

在本专栏中，我想应用以下内容：

function（x）0.001*x

。 x是sujets[[i][[86]]的行号，该列添加到每个数据帧中

我尝试了许多不同的选择，但没有一个奏效。。。 当我尝试向每个数据帧添加一个新列时，它的类型因子会阻止我应用函数

非常感谢你的帮助

更新 感谢您的回答，以下代码最终对我有效：

        for (i in 1:nbrSujet) {
          nrows = nrow(sujets[[i]])
          ncols = ncol(sujets[[i]])
       Timestamp <- c(1:nrows)
         for (j in 1:nrows) {
    Timestamp[j] = 0.001*j
  }
  
  sujets[[i]]$Timestamp <- Timestamp
}

for（1中的i:nbrSujet）{
nrows=nrow（sujets[[i]]）
ncol=ncol（sujets[[i]]
时间戳如果您能提供一个玩具示例供我们使用

我想到了这个可能的解决方案：

require(dplyr)
l <- lapply(sujets, function(x) {
x <- x %>% mutate(newvariable = 0.001*nrow(x))
})

require（dplyr）
我尝试了很多不同的选择，但都没有成功…请包括你尝试过的。另请参阅。