怎么计算数据框每行大于0的个数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有多组数据，每组都是数据框的格式。怎么计算数据框中每行数据中大于0的个数呢？大神求教

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据框

1. require("tibble")
   
2. require("dplyr")
   
3. x <- -5:3
   
4. y <- -2:6
   
5. Data <-
   
6.   data_frame(x, y) %>%
   
7.   mutate(x_1 = if_else(x > 0, 1, 0),
   
8.          y_1 = if_else(y > 0, 1, 0)) %>%
   
9.   rowwise() %>%
   
10.   mutate(N = x_1 + y_1)

复制代码

如果这可以帮助到你，请帮我评分，评分选项在我回复页面的右下方。

铁锷未残 发表于 2019-1-12 17:25
如果这可以帮助到你，请帮我评分，评分选项在我回复页面的右下方。

根据你构建的数据是可以的，但是我的数据有很多列，不可能和x、y一样，一个个输进去，你知道这怎么解决吗？

三刀_ 发表于 2019-1-12 21:24
根据你构建的数据是可以的，但是我的数据有很多列，不可能和x、y一样，一个个输进去，你知道这怎么解决吗 ...

供参考：

1. df <- data.frame(
   
2.     x = runif(10, -1, 1),
   
3.     y = runif(10, -1, 1),
   
4.     z = runif(10, -1, 1)
   
5. )
   
6. 
   
7. df[["gt0"]] <- Reduce(`+`, as.data.frame(df > 0))

复制代码

hszest 发表于 2019-1-12 23:18
供参考：

谢谢，确实可以用，不过要先把自己数据里面的缺失值改为0才可以

rowSums(as.matrix(myDf) > 0)

sum(as.matrix(myDf) > 0)

为生计发愁的小r 发表于 2020-10-13 20:13
sum(as.matrix(myDf) > 0)

Great！