# 按照一级指标拆分数据集 d2.a <- d2[,grep("A",colnames(d2))] d2.b <- d2[,grep("B",colnames(d2))] d2.c <- d2[,grep("C",colnames(d2))]按照行数拆分数据集

如果您想按照行数拆分数据集，可以使用以下代码：

n <- nrow(d2)
d2.a <- d2[1:(n/3), ]
d2.b <- d2[(n/3+1):(2*n/3), ]
d2.c <- d2[(2*n/3+1):n, ]

其中，`nrow(d2)` 表示获取 `d2` 数据集的行数，`n/3` 表示将数据集拆分为三个部分，每部分包含 `n/3` 行数据。然后，使用 `[ ]` 运算符和行索引来获取每个部分的数据集。