Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/68.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将数据帧拆分为N个列数相等的子集_R - Fatal编程技术网

R 将数据帧拆分为N个列数相等的子集

R 将数据帧拆分为N个列数相等的子集,r,R,如何将包含250列的数据框划分为5个子集,每个子集有50列,并将它们分配到5个不同的变量中 我试过这个 df2 <- split(df, sample(1:5, ncol(df), replace=T)) 这些应该包括独立的列。使用@markus的注释,要使用split.default,我们可以修改初始代码,并更改采样,使每个子集正好得到50 制作一些虚拟数据 df <- data.frame(matrix(1:250, ncol = 250)) 使用@markus的注释,使用s

如何将包含250列的数据框划分为5个子集,每个子集有50列,并将它们分配到5个不同的变量中

我试过这个

df2 <- split(df, sample(1:5, ncol(df), replace=T))

这些应该包括独立的列。

使用@markus的注释,要使用split.default,我们可以修改初始代码,并更改采样,使每个子集正好得到50

制作一些虚拟数据

df <- data.frame(matrix(1:250, ncol = 250))

使用@markus的注释,使用split.default,我们可以修改初始代码,并更改采样,使每个子集中正好得到50个

制作一些虚拟数据

df <- data.frame(matrix(1:250, ncol = 250))

此任务需要split.default,而不是split。相关:您好,@markus感谢您指出有用的链接。此任务需要split.default,而不是split。相关:您好,@markus感谢您指出有用的链接。谢谢@Hector,非常好地解释了这一点。它成功了。谢谢@Hector,非常好地解释了这一点。成功了。
df2 <- lapply(split.data.frame(t(df), sample(rep(1:5, ncol(df)/5))), t)
df2 <- split.default(df, sample(rep(1:5, ncol(df)/5)))
> ncol(df2$`1`)
[1] 50
> ncol(df2$`2`)
[1] 50
> ncol(df2$`3`)
[1] 50
> ncol(df2$`4`)
[1] 50
> ncol(df2$`5`)
[1] 50