时间戳

首页 > 解决方案 > 将一个矩阵拆分为多个矩阵

r - 将一个矩阵拆分为多个矩阵

问题描述

有两个矩阵：

  1. 具有 2 列的矩阵：节点名称和节点度 (k1)：

  2. 具有 1 列的矩阵：度（毫秒）：

我需要将第一个矩阵拆分为多个矩阵，其中每个矩阵都有相同度数的节点。然后，将矩阵写入 csv 文件。但是我的代码不起作用。我怎样才能正确地做到这一点？

k1<-read.csv2("VandD.csv", header = FALSE)
fnk1<-as.matrix(k1)
ms<-read.csv2("mas.csv", header = FALSE)
massive<-as.matrix(ms)
wlk<-1
varbl<-1
rtt<-list()
for (wlk in 1:384) {
  rtt<-NULL
  stepen<-massive[wlk]
  for (varbl in 1:2154) {
    if(fnk1[varbl,2]==stepen){
      kapa<-fnk1[varbl,1]
      rtt<-append(rtt,kapa)
    }
  }
  namef<-paste("reslt",stepen,".csv",sep = "")
  write.csv2(rtt, file=namef)
}
k1
                          V1  V2
1   UC7Ucs42FZy3uYzjrqzOIHsw  81
2   UCyWDmyZRjrGHeKF-ofFsT5Q  81
3   UCIZP6nCTyU9VV0zIhY7q1Aw  81
4   UCqk3CdGN_j8IR9z4uBbVPSg  81
5   UCjWzQkWu0l1yAhcBoavokng  81
6   UCRXiA3h1no_PFkb1JCP0yMA  81
7   UC2w9SdXpwq2Uq-MV4W4A8kw  81
8   UCdJqTQJZleoxZFReiyNvn8w  81
9   UC2Qw1dzXDBAZPwS7zm37g8g  81
10  UCTOovOHTf4efJOmGvJBxIQQ  81

ms
      V1
1     81
2     82
3     83
4     84
5     85
6     86
7     87
8     88
9     89
10    90

标签： rcsvmatrix

解决方案

看来你需要split

split(k1,k1$v2)

推荐阅读