R语言根据特定条件删除矩阵的某几行

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

                      APC2 CEBPD CTSC SPEG WARS2 YAF2
  GO:0000139    1      0         0        0        0         0
  GO:0000166    0      0         0        0        1         0
  GO:0000978    0      1         0        1        0         0
  GO:0001077    0      1         0        1        1         1
  GO:0001570    0      0         0        0        1         1
  GO:0001701    0      0         0        1        1         0
  GO:0001913    0      0         1        0        0         0
  GO:0003700    0      1         0        0        0         0
  GO:0003713    0      0         0        0        0         1
  GO:0003714    0      0         1        0        0         1
  GO:0004197    0      0         1        0        0         0
给定一个矩阵，先计算矩阵每一行的数值之和  w.sum <- as.numeric(apply(t,1,sum))
然后怎么根据w.sum，删除那些行的数值之和小于等于1的行，删完后的矩阵如下，求大牛指点R语言实现代码，谢谢！
                      APC2 CEBPD CTSC SPEG WARS2 YAF2
  GO:0000978    0      1         0        1        0         0
  GO:0001077    0      1         0        1        1         1
  GO:0001570    0      0         0        0        1         1
  GO:0001701    0      0         0        1        1         0
  GO:0003714    0      0         1        0        0         1

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 Wars PEG SPE ceb

data[w.sum>1,]

厉害，非常感谢，我老想着用apply，lapply，所以把问题复杂化了。非常感谢！

jinkelazzz 发表于 2015-10-29 15:28
data[w.sum>1,]

厉害，非常感谢，我老想着用apply，lapply，所以把问题复杂化了。非常感谢！

这有个语法糖
其实比较有逻辑的做法是先用which(Logical Expression)来找出相应的index，再引用

jinkelazzz 发表于 2015-10-29 15:28
data[w.sum>1,]

太厉害了，学习了

Error in data[w.sum > 7, ] : 类别为'closure'的对象不可以取子集