根据多个条件过滤一组data.frame答案

【问题标题】：Filter a group of a data.frame based on multiple conditions根据多个条件过滤一组data.frame
【发布时间】：2021-01-27 18:18:51
【问题描述】：

我正在寻找一种优雅的方式来根据多个条件过滤一组特定的大 data.frame 的值。

我的数据框是这样的。

data=data.frame(group=c("A","B","C","A","B","C","A","B","C"), 
                time= c(rep(1,3),rep(2,3), rep(3,3)), 
                value=c(0.2,1,1,0.1,10,20,10,20,30))

  group time value
1     A    1   0.2
2     B    1   1.0
3     C    1   1.0
4     A    2   0.1
5     B    2  10.0
6     C    2  20.0
7     A    3  10.0
8     B    3  20.0
9     C    3  30.0

我只想在时间点1过滤掉所有小于1但大于0.1的值

我希望我的 data.frame 看起来像这样。

  group time value
1     A    1   0.2
4     A    2   0.1
5     B    2  10.0
6     C    2  20.0
7     A    3  10.0
8     B    3  20.0
9     C    3  30.0

非常感谢任何帮助。

【问题讨论】：

这能回答你的问题吗？ R dplyr - filter by multiple conditions
并非如此。我不得不编辑我的问题以使其更清楚。感谢您的评论。很有帮助

标签： r dplyr tidyverse

【解决方案1】：

dplyr 你可以做到

library(dplyr)

data %>% filter(!(time == 1 & (value <= 0.1 | value >= 1))) 

#   group time value
# 1     A    1   0.2
# 2     A    2   0.1
# 3     B    2  10.0
# 4     C    2  20.0
# 5     A    3  10.0
# 6     B    3  20.0
# 7     C    3  30.0

【讨论】：

亲爱的 Ric 感谢您的简洁回答。您是否知道我如何也可以消除下一个时间点的值？这确实是另一个问题
@LDT 我看到你在这个问题上创建了另一个帖子。为了帮助未来的观众，我建议您将您的编辑恢复为原始问题并接受两者中的最佳答案。你怎么看？

【解决方案2】：

或者如果您有太多空闲时间并且决定避免使用dplyr：

ind <- with(data, (data$time==1 & (data$value > 0.1 & data$value < 1)))
ind <- ifelse((data$time==1) & (data$value > 0.1 & data$value < 1), TRUE, FALSE)
#above two do the same

data$ind <- ind
data <- data[!(data$time==1 & ind==F),]
data$ind <- NULL

  group time value
1     A    1   0.2
4     A    2   0.1
5     B    2  10.0
6     C    2  20.0
7     A    3  10.0
8     B    3  20.0
9     C    3  30.0

【讨论】：

【解决方案3】：

另一个简单的选择是使用subset 两次，然后以逐行方式附加结果。

rbind(
  subset(data, time == 1 & value > 0.1 & value < 1),
  subset(data, time != 1)
)

#    group time value
# 1     A    1   0.2
# 4     A    2   0.1
# 5     B    2  10.0
# 6     C    2  20.0
# 7     A    3  10.0
# 8     B    3  20.0
# 9     C    3  30.0

【讨论】：