library(dplyr); library(ggplot2); library(magrittr)
Next comes Data
data(mtcars)
Plots
ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point()

mtcars %>% ggplot(aes(x = factor(cyl), y = hp)) + geom_boxplot()

LS0tDQp0aXRsZTogIkhhcnJpc29uIEplcm9tZSA5IE1hcmNoIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCmBgYHtyIGxpYnJhcmllc30NCmxpYnJhcnkoZHBseXIpOyBsaWJyYXJ5KGdncGxvdDIpOyBsaWJyYXJ5KG1hZ3JpdHRyKQ0KYGBgDQoNCk5leHQgY29tZXMgRGF0YQ0KDQpgYGB7ciBkYXRhfQ0KZGF0YShtdGNhcnMpDQpgYGANCg0KUGxvdHMNCg0KYGBge3IgcGxvdHN9DQpnZ3Bsb3QobXRjYXJzLCBhZXMoeCA9IGhwLCB5ID0gbXBnKSkgKyBnZW9tX3BvaW50KCkNCm10Y2FycyAlPiUgZ2dwbG90KGFlcyh4ID0gZmFjdG9yKGN5bCksIHkgPSBocCkpICsgZ2VvbV9ib3hwbG90KCkNCg0KYGBg