我正在尝试对我的数据进行子集化,但我试图在一个循环中进行,然后将这些子集存储到不同的数据帧中。我有一个名为
data
的数据框,带有 20000
变量,我想获取该数据的子集。
一种方法是让我使用:
new_1000<-data[,1:1000]
new_5000<-data[,1:5000]
但我想尝试循环播放。下面是尝试,我可以在其中划分出前 1000 个
new_1000
的子集。但是,我不知道如何创建另一个数据框new_5000
。欢迎编辑此代码。
new_1000<-list()
columns <-c(1:1000)
For (i in seq_along(columns)){
new[[i]] <-data[, columns[i]]
}
new_1000<-as.data.frame(new_1000)
这将为您提供包含前
n_cols
列的数据框列表:
new_dfs <- list()
for (n_cols in c(1000, 5000)) {
new_dfs[[paste0("new_", n_cols)]] <- data[, seq(n_cols)]
}