Найти числовой шаблон в символьном векторе, содержащий числовые цифры, разделенные пробелом

Question

У меня есть кадр данных, который содержит столбец, содержащий коды, разделенные пробелом. И я хочу искать эти идентификаторы, применяя «<» или «>» и т. Д. Арифметические операторы.

Входной кадр данных:

df <- data.frame(Id=c(101, 102,103), Codes=c("1 2 3", "2 4 5", "4 5")) 

Я пытался найти идентификаторы, которые имеют с кодом выше 3. , так что я могу получить 102 и 103 в качестве вывода.

df[df$Codes > "3", ] 

, но это дает мне 103 идентификатора. что мне не хватает ???

Answer 1

Мы можем попробовать

df[sapply(strsplit(as.character(df$Codes), "\\s+"), function(x) any(as.numeric(x)>3)), ] 
# Id Codes 
#2 102 2 4 5 
#3 103 4 5 

---

Или используйте grep

df[grep("[4-9]", df$Codes),] 
# Id Codes 
#2 102 2 4 5 
#3 103 4 5 

Если нам нужны только "Id"

df$Id[grep("[4-9]", df$Codes)] 
#[1] 102 103