Enrole automaticamente rótulo de texto ggplot

 g +
 	scale_x_discrete(labels = scales::wrap_format(10)) 
   	# where scale_x_discrete is your scale of choice
    # where 10 == the number of characters you'd like to wrap before
Connor