我如何在r中获得特定条件的行

Question

说我有一个df。

我想同时获得两个条件的id：

1. id 's code应该竞争一个资本我，无论跟随它的数字如何。例如i11，i31 ...

2. id's code应该竞争特定代码：e12。

在下面的示例中，已过滤的ID应为id = 1和id = 2。因为它们都包含i和e12。

相同id在示例中表示同一组中的意思。

structure(list(id = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 4, 4, 4, 4, 4, 4), diag = c("main", "other", "main", 
"other", "main", "other", "main", "other", "main", "other", "main", 
"other", "main", "other", "main", "other", "main", "other", "main", 
"other", "main", "other"), code = c("I11", "E12", "I11", "Q34", 
"I31", "C33", "E12", "I34", "E12", "I45", "E12", "Z11", "E13", 
"Z12", "E14", "Z13", "I25", "E1", "I25", "E2", "I25", "E3")), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -22L), groups = structure(list(
    id = c(1, 2, 3, 4), .rows = structure(list(1:6, 7:10, 11:16, 
        17:22), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -4L), .drop = TRUE))

> df
# A tibble: 22 × 3
# Groups:   id [4]
      id diag  code 
   <dbl> <chr> <chr>
 1     1 main  I11  
 2     1 other E12  
 3     1 main  I11  
 4     1 other Q34  
 5     1 main  I31  
 6     1 other C33  
 7     2 main  E12  
 8     2 other I34  
 9     2 main  E12  
10     2 other I45  
# … with 12 more rows

Answer 1

您的问题建议 ^[1] 您对满足您两个条件的id值最感兴趣；在这种情况下，您实际上不需要在数据框架上工作，而仅在向量上工作：

intersect(df$id[grepl("^I", df$code)], df$id[df$code=="E12"])

创建两个字符串向量的df $ id s，一个针对每个条件，然后提取他们的共享术语（这也可以删除重复项，因此输出为1 2）。

这只需要基础r，我怀疑比任何基于桌子的方法都要高得多（尤其是在涉及分组或枢轴的情况下）。

[1]如果不是，则仍然可以使用上面的行来索引表行，例如，

df[df$id %in% intersect(df$id[grepl("^I", df$code)], df$id[df$code=="E12"]), ]

这将带有df的所有行，并带有id 1或2（包括那些具有匹配ID但不同代码的行，例如“ Q34”）。

Answer 2

为了澄清，您想要所有ixx或“ e12”的记录？您的“同时”使我有点扔掉。
如果这是您的意思，那应该得到您的结果。
使用库（tidyverse）：

df %>% filter(grepl("^I",code) | code == "E12")

含义过滤记录，其中列代码包含i或记录代码等于e12。

Answer 3

您可以做：

df |>
  group_by(id) |>
  filter(TRUE %in% str_detect(code, "I") & TRUE %in% (code == "E12")) |>
  ungroup()

输出：

# A tibble: 10 × 3
      id diag  code 
   <dbl> <chr> <chr>
 1     1 main  I11  
 2     1 other E12  
 3     1 main  I11  
 4     1 other Q34  
 5     1 main  I31  
 6     1 other C33  
 7     2 main  E12  
 8     2 other I34  
 9     2 main  E12  
10     2 other I45  

或者，如果您只想添加dintife（ID）之后过滤器（...）：

# A tibble: 2 × 1
     id
  <dbl>
1     1
2     2