Комбинация ifelse
и grepl
ищет нужный шаблон в столбце names
.
ifelse(grepl("_I\\.CEL", names(df1)), "I", "NI")
#[1] "NI" "NI" "I" "NI" "I"
где df1
- ваш фрейм данных.
Или используйте fixed = TRUE
ifelse(grepl("_I.CEL", names(df1), fixed = TRUE), "I", "NI")