Мы могли бы использовать separate
. Укажите регулярное выражение для разбивки на стыке числа и буквы a
library(tidyverse)
dat %>%
separate(initiativen, into = c('col1', 'col2'), sep= "(?<=8)(?=a)")
В более общих случаях можно разделить любое число на любую букву
dat %>%
separate(initiativen, into = c('col1', 'col2'), sep= "(?<=[0-9])(?=[A-Za-z])")
данные
dat <- data.frame(initiativen = c('a', 'a', 'a', 'a', '8a'),
stringsAsFactors = FALSE)