Pass a concatenated string as column name in dplyr::summarise

Question

I am trying perform dplyr summarize iteratively using concatenated string as column names

a=c(1,2,3,4,3,2,1,2)
b=c(10,11,12,13,14,15,16,17)
tt=cbind(Category,