作者koai (可笑的自以為...)
站內Statistics
標題Re: [程式] R軟體 檢查矩陣每列是否相同
時間Sun Dec 29 00:17:27 2013
X=matrix of dim(10000,5)
試試 Y=as.double(as.character(paste(X[,1],X[,2],X[,3],X[,4],X[,5],sep="")))
order(table(Y),decreasing=TRUE)
結果會告訴你,哪些數字有重覆出現!
如果上面的做法不行,則要寫個迴圈!
Y=rep(0,10000)
for(i in 1:10000){
Y[i]=as.double(as.character(paste(X[i,1],X[i,2],X[i,3],X[i,4],X[i,5],sep="")))
}
order(table(Y),decreasing=TRUE)
參考一下吧~
※ 引述《zzss (阿文)》之銘言:
: ------------------------------------------------------------------------
: TITLE請著名軟體類別
: 按ctrl+v可預覽 發文前請把灰色的註解刪除
: 可使用ctrl+y刪除一整行
: [軟體程式類別]:
: R
: [程式問題]:
: 想請問一下假設我現在有一個矩陣,我想檢查每一列是否有相同要怎麼做呢?
: 列如 1,2,3,5,7
: 2,2,2,2,2
: 1,2,3,5,7
: 那就是1,3列相同,如果我現在一次有10000*5的矩陣要檢查大概要怎做 謝謝
: [軟體熟悉度]:
: 低(1~3個月)
: 有試過用which和metch做 但怎麼試就是不對 希望有人可以幫個忙 謝謝
: -----------------------------------------------------------------------------
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 101.8.203.125
推 laba1014:這寫法超讚的 12/29 09:09
推 zzss:謝謝妳喔 12/29 12:09
→ andrew43:X的元素如果不是整數可能不方便這樣解. 12/29 23:51
→ koai:修改一下:Y=paste(X[,1],X[,2],X[,3],X[,4],X[,5],sep=",") 01/02 13:50
→ koai:sort(table(Y),decreasing=TRUE)[1:sum(table(Y)>1)] 01/02 13:50