定义一个包含两个数据框 df1 和 df2 的列表 dats
dats <- list( df1 = data.frame(a=sample(1:3), b = sample(11:13)),
df2 = data.frame(a=sample(1:3), b = sample(11:13)))
> dats
$df1
a b
1 2 12
2 3 11
3 1 13
$df2
a b
1 3 13
2 2 11
3 1 12
我希望在每个数据框中删除变量a。接下来,我想从外部数据框中添加一个变量,其包含每个数据框的id,如下所示:
ids <- data.frame(id=c("id1","id2"),df=c("df1","df2"))
> ids
id df
1 id1 df1
2 id2 df2
为了删除不必要的变量,我尝试了以下方法,但没有成功:
> dats <- lapply(dats, function(x) assign(x, x[,c("b")]))
> Error in assign(x, x[, c("b")]) : invalid first argument
我不确定如何添加id。
我也尝试了更为恰当的方法:
> temp <- lapply(dats, function(x) subset(x[1], select=x[[1]]$b))
Error in x[[1]]$b : $ operator is invalid for atomic vectors
我发现令人困惑的是,str(out[1])
返回一个列表,而str(out[[1]])
返回一个数据框。我认为这可能与它有关。