inst/examples/ex-mk_scatterplot.R

In gmlang/ezplot: A collection of functions for making common statistical charts in ggplot2

library(ezplot)
library(dplyr)

plt = mk_scatterplot(films)
plt("budget", "boxoffice") %>%
        add_labs(subtitle = "Total number of observations: 5,944")
plt("budget", "boxoffice", colorby = "year_cat", alpha = 0.2, legend_title = NULL) %>%
    add_labs(title = "Boxoffice and Budget are related, try log scales",
             caption = "Source: IMDB")

plt("budget", "boxoffice", colorby = "year_cat", alpha = 0.8,
    legend_title = NULL, add_cnt_to_legend = F, legend_pos = "bottom") %>%
    add_labs(title = "Boxoffice and Budget are related, try log scales",
             caption = "Source: IMDB")
plt("year", "rating", font_size = 10) %>% add_labs(xlab = NULL)
plt("year", "rating", jitter = T) %>% add_labs(xlab = NULL)

df = data.frame(V1 = c(56, 123, 546, 26, 62, 6, NaN, NA, NA, 15),
                V2 = c(21, 231, 5, 5, 32, NA, 1, 231, 5, 200),
                V3 = c(NA, NA, 24, 51, 53, 231, NA, 153, 6, 700),
                V4 = c(2, 10, NA, 20, 56, 1, 1, 53, 40, 5000))
nrow(df)

plt = mk_scatterplot(df)
plt("V1", "V2")
plt("V1", "V3")