Shock and awe with ggplot2