Subtitle = 'This is an interesting relationship, I guess',Ĭaption = 'Source: ggplot's built-in data', P <- ggplot(mpg, aes(x = cyl, y = hwy)) + geom_point() + geom_smooth(method = 'lm') + annotate( 'text', x = 5, y = 35, label = 'There aren't a lot of\n5 cylinder cars',įamily = 'Source Sans Pro Semibold', color = '#DC5B44', size = 4) + labs(title = 'Highway miles per gallon and cylinders',
