我正在尝试根据列中的特定值对矩阵进行子集化。但我希望我的子集在多个单独的矩阵中。例如,假设我有一个矩阵 ccc
这是
aaa=c(1,1,1,2,5,1,2,1,1,3,1,1,1,1,1,1,4)
bbb=c(4,4,4,4,3,3,3,3,2,2,2,2,3,4,5,6,7)
ccc=cbind(aaa,bbb)
我想使用
ccc[,1]==1
的条件进行子集化同时我希望子集被分成几个由断点分隔的矩阵。中断基于 aaa==1
的运行.为了清楚起见,我需要以下方式的输出,ddd1
aaa bbb
[1,] 1 4
[2,] 1 4
[3,] 1 4
ddd2
aaa bbb
1 3
ddd3
aaa bbb
[1,] 1 3
[2,] 1 2
ddd4
aaa bbb
[1,] 1 2
[2,] 1 2
[3,] 1 3
[4,] 1 4
[5,] 1 5
[6,] 1 6
ddd1,..,ddd4
是子集矩阵。我希望我说清楚了。有什么建议怎么做吗?
最佳答案
使用 split
和 cumsum
:
ccc <- data.frame(ccc)
split(ccc[ccc$aaa==1,], cumsum(ccc$aaa!=1)[ccc$aaa==1])
#$`0`
# aaa bbb
#1 1 4
#2 1 4
#3 1 4
#
#$`2`
# aaa bbb
#6 1 3
#
#$`3`
# aaa bbb
#8 1 3
#9 1 2
#
#$`4`
# aaa bbb
#11 1 2
#12 1 2
#13 1 3
#14 1 4
#15 1 5
#16 1 6
关于R - 基于条件对矩阵组进行子集化,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30065375/