Скажите, что это ваши данные:
df <- data.frame(ID=c("A_01", "A_02", "B_01", "B_02"),
stringsAsFactors = F)
df
# ID
#1 A_01
#2 A_02
#3 B_01
#4 B_02
Вы можете получить новый столбец примерно так:
df$NewCol <- ifelse(grepl("_01", df$ID), 0, 1)
df
# ID NewCol
#1 A_01 0
#2 A_02 1
#3 B_01 0
#4 B_02 1
grepl
будет искать шаблон в каждой строкеdf$ID
и, если найден, он установит 0, а если нет - 1.