Formatted ggplot2 code