Оператор %in%
проверяет, можно ли найти каждое число в civlib
во втором векторе чисел - в данном случае c (3, 4, 5). Обтекание этого в as.numeric()
преобразует вывод из логического (True или False) в числовой вывод c, как вы хотели.
civlib <- c(1, 2, 3, 4, 5, 6, 7, 3, 4, 5, 2, 3, 4)
as.numeric(civlib %in% c(3, 4, 5))