labs(title=expression(atop("Nationwide opinion polling for the 2016 U.S. presidential election", "Four-way race"))) + scale_size_area(max_size=3, breaks=function(x)...