英文:
Filtering table based on row non-zero values in R
问题
我有一个如下的表格：
日期 X1 X2 X31/1 0 3 342/1 0 7 653/1 0 13 04/1 25 4 655/1 35 0 06/1 4 6 97/1 0 0 0
我该如何使用 dplyr 只选择在所有X列开始出现非零值之后的行。在这种情况下，只选择日期为 4/1、5/1、6/1 和 7/1 的行。谢谢。
英文:
I have a table like the following:
date X1 X2 X31/1 0 3 342/1 0 7 653/1 0 13 04/1 25 4 655/1 35 0 06/1 4 6 97/1 0 0 0
How can I use dplyr to select rows only after all Xs start appearing non-zero values. In that case, select only rows for dates 4/1, 5/1, 6/1 and 7/1. Thank you.
答案1
得分: 3
您可以使用`cumsum` + `rowSums`函数
> subset(df, cumsum(rowSums(df[-1] > 0) == length(df) - 1) > 0)日期 X1 X2 X34 4/1 25 4 655 5/1 35 0 06 6/1 4 6 97 7/1 0 0 0
英文:
You can use cumsum + rowSums
> subset(df, cumsum(rowSums(df[-1] > 0) == length(df) - 1) > 0)date X1 X2 X34 4/1 25 4 655 5/1 35 0 06 6/1 4 6 97 7/1 0 0 0
答案2
得分: 3
df %>%filter(cumsum(if_all(starts_with('X'), ~.x > 0)) > 0)date X1 X2 X31 4/1 25 4 652 5/1 35 0 03 6/1 4 6 9
英文:
df %>%filter(cumsum(if_all(starts_with('X'), ~.x > 0))>0)date X1 X2 X31 4/1 25 4 652 5/1 35 0 03 6/1 4 6 94 7/1 0 0 0
or even:
df %>%filter(cumsum(if_all(starts_with('X'))>0)>0)date X1 X2 X31 4/1 25 4 652 5/1 35 0 03 6/1 4 6 94 7/1 0 0 0
答案3
得分: 2
如果我理解问题正确：
df[apply(apply(df[, -1],2, \(col) cumsum(col > 0)),1, prod) > 0, ]# date X1 X2 X3# 4 4/1 25 4 65# 5 5/1 35 0 0# 6 6/1 4 6 9# 7 7/1 0 0 0
英文:
If I understand the question correctly:
df[apply(apply(df[, -1],2, \(col) cumsum(col > 0)),1, prod) > 0, ]# date X1 X2 X3# 4 4/1 25 4 65# 5 5/1 35 0 0# 6 6/1 4 6 9# 7 7/1 0 0 0
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论