Using dplyr to cross join but only by the number preceding

Question

I would like to turn this data frame:

y<- c("1","2","2","3")
n<- c("co","ny","tn",