比较R中的两行dataframe

Question

我有一个数据集，我想在其中查找并显示包含任何无效数据的行，例如速率值不在 MinCI 和 MaxCI 的范围内，MinCI 大于 MaxCI 等。如果它们存在，请更改 MinCI 和 MaxCI 值在这些行中进入 NA。

   MinCI      MaxCI   City
    2.0        6.0    ABC
    4.2        8.0    XYZ
    3.6        1.2    CRS
    6.4        8.9    WUI
    7.8        5.4    IRK

因此，在第 3 行和第 5 行中，MinCI 大于 MaxCI，因此我们希望使用 R 将此列值填充为 NA。 对于数据集的完整列

Answer 1

我们可以创建一个逻辑索引并使用该索引将列值分配给NA

i1 <- with(df1, MaxCI < MinCI)
df1[i1, c('MaxCI', 'MinCI')] <- NA
df1
#  MinCI MaxCI City
#1   2.0   6.0  ABC
#2   4.2   8.0  XYZ
#3    NA    NA  CRS
#4   6.4   8.9  WUI
#5    NA    NA  IRK

数据

df1 <- structure(list(MinCI = c(2, 4.2, 3.6, 6.4, 7.8), MaxCI = c(6, 
8, 1.2, 8.9, 5.4), City = c("ABC", "XYZ", "CRS", "WUI", "IRK"
)), class = "data.frame", row.names = c(NA, -5L))

Answer 2

dplyr选项：

library(dplyr)
df1 %>% 
  mutate(across(MinCI:MaxCI, ~na_if(., MinCI < MaxCI)))

# A tibble: 5 x 3
  MinCI MaxCI City 
  <dbl> <dbl> <chr>
1   2     6   ABC  
2   4.2   8   XYZ  
3  NA    NA   CRS  
4   6.4   8.9 WUI  
5  NA    NA   IRK