逻辑测试以确定 R 中分组数据框中是否存在某个值（整洁的解决方案）

Question

我想测试一个值是否存在于我按因子分组的大型数据框中的两个值之间。基本上，我有一列包含数值，我想测试是否有任何行的值在 -5 到 5 之间。下面是一个示例：

x <- tibble(value = c(-10, 8, 10, 0, 6, 10), group = c('A', 'A', 'A', 'B', 'B', 'B')) %>%
  group_by(group) %>%
  mutate(
    logical_test = if_else(any(value >= -5) & any(value <= 5), TRUE, FALSE)
  )

Group A 应该是 FALSE。它的值不介于 -5 和 5 之间；然而，测试显示TRUE。我不确定我做错了什么。 any() 这里的函数不是正确的吗？

非常感谢任何帮助。

Answer 1

正如评论中指出的，您只需要使用 any 一次，不需要 ifelse 因为使用 any 已经返回逻辑值。

library(dplyr)

x <-
  tibble(value = c(-10, 8, 10, 0, 6, 10),
         group = c('A', 'A', 'A', 'B', 'B', 'B')) 

x %>%
  group_by(group) %>%
  mutate(logical_test = any(value >= -5 & value <= 5))

输出

  value group logical_test
  <dbl> <chr> <lgl>       
1   -10 A     FALSE       
2     8 A     FALSE       
3    10 A     FALSE       
4     0 B     TRUE        
5     6 B     TRUE        
6    10 B     TRUE  

或使用 data.table：

library(data.table)

setDT(x)[, test := any(value >= -5 & value <= 5), by = group]

或使用基本 R：

x$logical_test <- as.logical(ave(x$value, x$group, FUN = \(x) any(x >= -5 & x <= 5)))