dplyr fails to count substring in vector

Question

I need to count recursively how many times a substring x appears in a vector of strings data$y

data <- data.frame(x=c("aa",