R循环施工基础
示例
在此示例中，我们将计算数据帧中每一列的平方偏差（在这种情况下为）mtcars。
选项A：整数索引
squared_deviance <- vector("list", length(mtcars))
for (i in seq_along(mtcars)){
squared_deviance[[i]] <- (mtcars[[i]] - mean(mtcars[[i]]))^2
}squared_deviance符合预期，是11元素的列表。
class(squared_deviance) length(squared_deviance)
选项B：字符索引
squared_deviance <- vector("list", length(mtcars))
Squared_deviance <- setNames(squared_deviance, names(mtcars))
for (k in names(mtcars)){
squared_deviance[[k]] <- (mtcars[[k]] - mean(mtcars[[k]]))^2
}如果我们想要data.frame一个结果怎么办？好了，有很多选项可以将列表转换成其他对象。但是，在这种情况下，最简单的方法可能是将for结果存储在中data.frame。
squared_deviance <- mtcars #copy the original
squared_deviance[TRUE]<-NA #replace with NA or do squared_deviance[,]<-NA
for (i in seq_along(mtcars)){
squared_deviance[[i]] <- (mtcars[[i]] - mean(mtcars[[i]]))^2
}
dim(squared_deviance)
[1] 32 11尽管我们使用字符选项(B)，但结果将是相同的事件。
热门推荐
10 儿子立冬祝福语简短独特
11 对当兵的祝福语简短
12 侄儿高考试祝福语简短
13 伴郎红包祝福语朋友简短
14 媳妇生日简短祝福语朋友
15 公司年会祝福语简短最好
16 元旦感恩祝福语简短大全
17 红包祝福语简短10字
18 周六早晨祝福语简短