Podrías crear un dataframe con una columna con tu lista de caracteres y una cantidad de filas equivalente a cada valor unico de tu lista
library(tidyverse)
data_ejemplo = data.frame(A = rep(paste(A, collapse = "-"), length(unique(A))),
categorias = unique(A))
y luego contar cuantas veces se repite cada valor unico de tu lista con:
data_ejemplo %>%
mutate(n_rep = str_count(A, categorias)) %>%
filter(n_rep > 4)
y con el filter quedarte solo con los casos con mayor a 4 repeticiones