r - case_when & %in%

Question

我正在尝试在 case_when() 中使用 %in%，但是它不像在 R 中一般那样工作。下面是一个示例。有人可以指导这个实现有什么问题吗？

df <- structure(list(name = c("abc A", "xyz B", "jkl C"), text = c("my name is abc A", 
"my name is xyz B", "my name is jkl C")), class = "data.frame", row.names = c(NA, 
-3L))

x <- c("ABC","B","C")

df %>% mutate(flag=case_when(name %in% x~TRUE, TRUE~FALSE))

输出

 name             text  flag
abc A my name is abc A FALSE
xyz B my name is xyz B FALSE
jkl C my name is jkl C FALSE

预期输出

 name             text  flag
abc A my name is abc A TRUE
xyz B my name is xyz B TRUE
jkl C my name is jkl C TRUE 

Answer 1

这是预期的输出。字符串 "abc A" 未在向量 c("ABC","B","C") 中找到，"xyz B 也未找到" 或 "jkl C"。

您是否正在尝试查找字符串匹配项？那么你应该使用 str_detect 而不是 %in%

df %>% mutate(flag=case_when(stringr::str_detect(name, x)~TRUE, TRUE~FALSE))
#>    name             text  flag
#> 1 abc A my name is abc A FALSE
#> 2 xyz B my name is xyz B  TRUE
#> 3 jkl C my name is jkl C  TRUE

请注意，如果输出只有两个选项，TRUE 或 FALSE，则根本不需要 case_when。

df %>% mutate(flag = stringr::str_detect(name, x))
#>    name             text  flag
#> 1 abc A my name is abc A FALSE
#> 2 xyz B my name is xyz B  TRUE
#> 3 jkl C my name is jkl C  TRUE

另请注意，情况 1 应为 FALSE，因为 "abc" 不匹配 "ABC"。如果您不关心大小写，您可以使用 grepl，如 AndS 所述。