Точное соответствие частичной строки

Question

Я много искал, но не смог найти решение ... Я думаю, что для многих из вас это непросто ... но не для меня.

df <- data.frame(site = c("11", " 4 , 111", "3,1 ", "4,11111 ")) 
> df 
     site 
1  11 
2 4 , 111 
3  3,1 
4 4,11111 

У меня есть столбец, в котором несколько кодов сайтов могут быть разделены запятой (а не случайными пробелами, которые могут возникнуть). Я пытаюсь найти строки, которые соответствуют интересующим строкам.

Результаты поиска для строк, в которых сайт является 11 или 3 «с (1,3)» соответствует должны, таким образом, вернуться: Я не могу

[1] 1 0 1 0 

, чтобы получить это .. . Я думаю, ответ будет включать в себя

temp <- strsplit(df$site, ",") 

, но я не могу понять, как применять функции в списках после этого шага ... Я бы сделать

grepl(c("^11$", "^3$"), temp) 

но это не работает.

Answer 1

Поскольку вы ищете точное соответствие, а не сопоставление с образцом, вы можете попробовать это:

df <- data.frame(site = c("11", " 4 , 111", "3,1 ", "4,11111 "), stringsAsFactors = FALSE) 
as.integer(unlist(lapply(strsplit(df$site, split=","), function(x) any(x == 3 | x == 11)))) 

[1] 1 0 1 0 

Answer 2

Вы можете попробовать использовать sapply

as.integer(sapply(df$site,function(x)grepl("^11|^3",x))) 

[1] 1 0 1 0 

Answer 3

Мы только можем сделать grep

+(grepl("\\b(3|11)\\b", df$site)) 
#[1] 1 0 1 0