(Turning @kohske's comment into an answer so that it can be accepted and "closed"):
facet_wrap(as.formula(paste("~", response)))
1.4m articles
1.4m replys
5 comments
57.0k users