library(ggplot2)
plot_data <- mtcars
plot_data$gear <- as.factor(plot_data$gear)
ggplot(data = plot_data,
aes(x = mpg, y = disp, colour = gear))+
geom_point(size = 3)+
facet_wrap(~cyl) +
theme_DI()
Run the code above in your browser using DataLab