Return 包含超出预定范围的数据的列列表

Question

为了仅针对感兴趣的列过滤 data.frame，我需要在此 data.frame 中找到包含特定范围外数据的列。让data.frame成为

df<-data.frame(x1=c(1,5,9),x2=c(10,20,30),x3=c(20,100,1000))
ranges<-data.frame(y1=c(3,8),y2=c(10,20), y3=c(15,1250))

作为输出，我想要一个返回列名的列表："x1"、"x2"

我尝试了以下方法，但只有当 "ranges" 包含下面指定的所有数字时代码才有效，并且如果找到数字则匹配。不幸的是，这不是我需要的。

ranges<-c(15:300,10:20)
df.l<-colnames(df)[sapply(df,function(x) any(x %in% ranges))]

有什么想法吗？谢谢！

Answer 1

如果 'ranges' 是 data.frame 或列表，一个选项是

names(which(unlist(Map(function(x, y) any(!(x >= y[1] & x <= y[2])), df, ranges))))
#[1] "x1" "x2"

或者使用反向逻辑

names(which(unlist(Map(function(x, y) any(x < y[1]| x > y[2]), df, ranges))))

或者在 tidyverse 中，

library(purrr)
library(dplyr)
library(tibble)
map2(df, ranges, ~ between(.x, .y[1], .y[2]) %>% `!` %>% any) %>% 
    enframe %>% 
    unnest(cols = value) %>% 
    filter(value) %>% 
    pull(name)
#[1] "x1" "x2"

数据

ranges <- data.frame(y1 = c(3, 8), y2 = c(10, 20), y3 = c(15, 1250))

Return 包含超出预定范围的数据的列列表

Return list of columns containing data outside a predetermined range in r

r

range

columnname

match

multiple-columns

数据