Мы можем удалить элементы, которые не являются цифрами и считать
nchar(gsub("[^0-9]+", "", data$name))
#[1] 9 4
или, если мы используем str_count
, удалите проверки +
как +
для шаблонов одного илидополнительные цифры и число 63
в качестве первого экземпляра, 200
в качестве второго и 2001
в качестве третьего (для первого элемента 'name')
library(stringr)
str_count(data$name, "[0-9]")
#[1] 9 4
data
data <- structure(list(name = c("aldrinas63_rios200_2001", "sa_c.fr.1234"
)), class = "data.frame", row.names = c(NA, -2L))