如何筛选出数据列之和大于某一值的列

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位老师好，我想在保留字符列的同时，挑选出数值列之和大于50的列，请问有什么好办法吗…以下代码为一个简单的演示例子，数据列多的话显然用此方法不太简便，还望老师不吝指导，非常感谢！

1. name <- c('A','B','A','A','C','D')
   
2. school <- c('s1','s2','s1','s1','s1','s3')
   
3. class <- c(10, 5, 4, 11, 1, 8)
   
4. English <- c(85, 50, 90 ,90, 12, 96)
   
5. math <- c(25,18,85,76,92,63)
   
6. ww <- data.frame(name, school, class, English,math)
   
7. ww
   
8. 
   
9. 
   
10.   xx <- ww[3:5]
    
11.   data.frame(ww[1:2],xx[,colSums(xx)>50])

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：筛选出 name 非常感谢

library(tidyverse)
ww %>% select_if(function(x) !is.numeric(x)|(is.numeric(x)&&sum(x)>50))

你的方法已经很简单了，但是考虑到如果你的列会有数值和字符来回穿插出现的情况，我上面的代码可以把非数值的全保留，数值的只保留大于50的

zerofung 发表于 2020-10-29 10:42
你的方法已经很简单了，但是考虑到如果你的列会有数值和字符来回穿插出现的情况，我上面的代码可以把非数值 ...

谢谢您，老师，好用