попробуйте это:
data <- c(19878, 19659, 19855, 18658, 18996, 18002)
Извлеките свою вторую позицию каждого идентификатора в «data» с помощью substr ():
substr(data,2,2)
[1] "9" "9" "9" "8" "8" "8"
Узнайте с помощью grepl (), какие идентификаторы содержат 9 во 2-й позиции:
grepl(9,substr(data,2,2))
[1] TRUE TRUE TRUE FALSE FALSE FALSE
Скрестите свой результат с вашим объектом данных:
data[grepl(9,substr(data,2,2))]
[1] 19878 19659 19855
Редактировать:
Более быстрое решение Грегора (удаление шага grepl):
data[substr(data,2,2) == "9"]