检查列值是否在其他两个列值的（范围）之间

Question

我有一个看起来像这样的数据帧（Dataframe X）：

id  number  found
1   5225    NA
2   2222    NA
3   3121    NA

我有另一个数据框，如下所示（数据帧 Y）：

id  number1  number2    
1   4000     6000
3   2500     3300
3   7000     8000

我想做的是：对于Dataframe X“数字”列中的每个值，搜索它是否等于或介于Dataframe Y的“数字1”和“数字2”对值的任何值之间。此外，对于这个“数字1”和“数字2”对值，其各自的“id”必须与Dataframe X中的“id”匹配。如果这都是真的，那么我想在Dataframe X中相应行的“找到”列中插入一个“YES”：

id  number  found
1   5225    YES
2   2222    NA
3   3121    YES

我该怎么做？谢谢你的帮助。

Answer 1

使用tidyverse函数，尤其是map_chr来迭代每个数字：

library(tidyverse)
tbl1 <- read_table2(
"id   number  found
1    5225     NA
2    2222     NA
3    3121     NA"
)
tbl2 <- read_table2(
"id  number1  number2
1    4000   6000
2    2500   3300
3    7000   8000"
)

tbl1 %>%
  mutate(found = map_chr(
    .x = number,
    .f = ~ if_else(
      condition = any(.x > tbl2$number1 & .x < tbl2$number2),
      true = "YES",
      false = NA_character_
    )
  ))
#> # A tibble: 3 x 3
#>      id number found
#>   <int>  <int> <chr>
#> 1     1   5225 YES  
#> 2     2   2222 <NA> 
#> 3     3   3121 YES

由reprex包(v0.2.0)于2018-10-18创建。

Answer 2

我们可以使用s应用循环遍历每个x$号，并检查它是否位于y$Number1和y$Number2的任何的范围内，并相应地给出值。

x$found <- ifelse(sapply(x$number, function(p) 
                 any(y$number1 <= p & y$number2 >= p)),"YES", NA)
x

#  id number found
#1  1   5225   YES
#2  2   2222  <NA>
#3  3   3121   YES

使用相同的逻辑但使用替换

x$found <- replace(x$found, 
         sapply(x$number, function(p) any(y$number1 <= p & y$number2 >= p)), "YES")

编辑

如果我们还想比较 id 值，我们可以做

x$found <- ifelse(sapply(seq_along(x$number), function(i) {
           inds <- y$number1 <= x$number[i] & y$number2 >= x$number[i]
           any(inds) & (x$id[i] == y$id[which.max(inds)])
           }), "YES", NA)

x$found
#[1] "YES" NA    "YES"

Answer 3

这里有一个使用< code>fuzzy_join的选项

library(fuzzy_join)
library(dplyr)
fuzzy_left_join(X, Y[-1], by = c("number" = "number1", "number" = "number2"), 
     match_fun  =list(`>=`, `<=`)) %>% 
    mutate(found = c(NA, "YES")[(!is.na(number1)) + 1]) %>% 
    select(names(X))
#    id number found
#1  1   5225   YES
#2  2   2222  <NA>
#3  3   3121   YES

或者另一种选择是与 data.table 的非等值连接

library(data.table)
setDT(X)[, found := NULL]
X[Y, found := "YES", on = .(number >= number1, number <= number2)]
X
#   id number found
#1:  1   5225   YES
#2:  2   2222  <NA>
#3:  3   3121   YES

X <- structure(list(id = 1:3, number = c(5225L, 2222L, 3121L), found = c(NA, 
  NA, NA)), class = "data.frame", row.names = c(NA, -3L))

Y <- structure(list(id = 1:3, number1 = c(4000L, 2500L, 7000L), number2 = c(6000L, 
    3300L, 8000L)), class = "data.frame", row.names = c(NA, -3L))