我正在使用一个包含诊断编码的数据集，我试图看看discharge_codes中是否有follow_up_code个.遗憾的是，放电代码是作为字符串而不是向量提供的.
mre <- tribble(
~patient_id, ~discharge_codes, ~follow_up_code,
1234 , "A_B_C" , "A",
4567 , "D_E_F" , "C",
7890. , "A_C_E". , "E"
)
我曾try 使用flatten_chr()和str_split()来搜索follow_up_code %in% discharge_codes，但这将discharge_codes完全展平(而不是按患者)，并使用rowwise() %>% mutate(... flatten_chr())个错误作为".x必须是一个列表，而不是一个字符向量".
我觉得我肯定错过了什么，要么是我正在采取的方法，要么是有更直接的方法来实现这一点？
您可以将文本列转换为字符向量，然后查看代码是否在该向量内.这样做的好处是，如果需要，discharge_codes现在可以用于其他用途.
library(dplyr)
library(purrr)
library(stringr)
mre %>%
mutate(discharge_codes = str_split(discharge_codes, "_"),
match = map2_lgl(discharge_codes, follow_up_code, ~ .y %in% .x))
您可以看到，discharge_codes现在是一个包含字符向量的列表列.
# A tibble: 3 x 4
patient_id discharge_codes follow_up_code match
<dbl> <list> <chr> <lgl>
1 1234 <chr [3]> A TRUE
2 4567 <chr [3]> C FALSE
3 7890 <chr [3]> E TRUE