我想为我工作区中的每个数据框创建一个预测矩阵（使用鼠标）。我想过做以下事情：
library(mice)
PredMatr = list()
try (for (i in 1:length(ls())) {
PredMatr [[i]]=quickpred(get(ls()[i]), mincor=.1)
})
但是当它遇到与工作区中的数据框不同的东西时它会停止。如何调整我的代码以使操作以对象为数据框为条件？
【问题讨论】：
标签： r dataframe for-loop global r-mice
您可以使用eapply 来测试环境中的哪些对象属于data.frame 类，并且只能使用这些对象。例如使用：
Myls<-ls(sorted=F)[eapply(.GlobalEnv, class)=="data.frame"]
现在Myls 是data.frame 对象名称的列表。然后可以将这些输入到get()
eapply 类似于lapply，但它适用于环境中的每个对象，而不是列表中的每个对象。
编辑添加： 要在原始问题中使用它，您可以执行以下操作：
library(mice)
PredMatr = list()
Myls<-ls(sorted=F)[eapply(.GlobalEnv, class)=="data.frame"]
try (for (i in 1:length(Myls)) {
PredMatr [[i]]=quickpred(get(Myls[i]), mincor=.1)
})
【讨论】：
Myls 中。
ls() 和 eapply 将所有内容按不同的顺序排列，更新以防止 ls() 按字母顺序排列名称。我将sorted=F 添加到ls() 函数中。
你可以添加
if(!is.data.frame(get(ls()[i]))) next;
到你的代码，然后循环会在遇到非data.frame结构时跳到下一次迭代。
回复评论
library(mice)
PredMatr = list()
try (for (i in 1:length(ls())) {
if(!is.data.frame(get(ls()[i]))) next;
PredMatr [[i]]=quickpred(get(ls()[i]), mincor=.1)
})
应该做的伎俩。
【讨论】：