我想提取列表中每个df的第2列和第20列,并为3:19列添加变量,并为每个(16)我想创建一个新df添加变量。
我试图建立一个for循环
for i in (3:19){
lapply(abs_bezirke)
y = paste("straftat", i , sep = "")
assign(y, filter.values <- c(2,i,20))
}
预先感谢
答案 0 :(得分:2)
这未经测试
sapply(3:19, FUN = function(i, mydata) {
mydata[, c(2, i, 20)]
}, mydata = mydf, simplify = FALSE)
它基本上完成了循环的工作,但是使用了sapply。结果应该是data.frames的列表。