Title
dotPlot(data, aesList = aes_string(x = "Population", y = "percentPop"), xFacet, facetOrderList)