求问判定的code问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大神，
初学者求问code，现在我有个这样的table，7组pair

     row col
[1,]  30  28
[2,]  28  30
[3,]  43  42
[4,]  42  43
[5,]  52  49
[6,]  49  52
[7,]  54  53


我想计算多少组不同，但顺序有些是相反的，比如30&28 和28&30是一样的，43&42和42&43是一样的，所以7组里只有4个不同的pair。我想对table作判定并输出不同组的数目4。
我想用for和if套用作判定但一直有bug，求问code，感激不尽。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：code COD ODE Table ABLE 初学者

接上面求问
dimerB是上面的table，以下是我自己写的，老是error，不知道哪里有问题大loop跑不起来，麻烦大家了。感谢

m=1:nrow(dimerB)
n=1:nrow(dimerB)
mi=length(m)
ni=length(n)
g=nrow(dimerB)
for (f in 1:ni) {
  for (e in 1:mi){
    if (dimerB[f,1]=dimerB[e,2]& dimerB[f,2]=dimerB[e,1]){
      print("yes")
      g=g-1
    }
  }
}

1. d=data.frame(a=c(30,28,43,42,52,49,54),b=c(28,30,42,43,49,52,53))
   
2. unique(t(apply(d,1,sort)))

复制代码

楼主可以试一下下面的代码，应该能实现你的要求

1. tt<-matrix(c(30,28,2,1,28,30,1,2,43,42,3,5,42,43,3,6,52,49,12,34,49,34,52,12,54,53,34,56),nrow=7,ncol=4,byrow=T);
   
2. tt
   
3. for (i in 1:nrow(tt)){
   
4. tt[i,]=sort(tt[i,]);
   
5. }
   
6. tt
   
7. tt1<-tt[!duplicated(tt,fromLast=T),];
   
8. tt1
   
9. nrow(tt1)

复制代码

happyqj 发表于 2016-1-28 10:27
楼主可以试一下下面的代码，应该能实现你的要求

感谢回复！！ 非常棒！这个是后来想到用的和你思路是一样的。
nB<-matrix(dimerB,nrow(dimerB))
nB1=t(apply(nB,1,sort))
nB2=unique(nB1)

yywan0913 发表于 2016-1-28 10:16

哈哈，太感谢太感谢了，大神阿！
之前这个想复杂了，可以不用套那么多东西的！
感谢感谢

这个实现很简单噻

1. nrow(unique(pmin(row, col), pmax(row, col))

复制代码