library(here)
library(data.table)
library(ggplot2)
library(RplotterPkg)
spread_level_lst <- RplotterPkg::spread_level_plot(
df = RplotterPkg::homeruns_2000,
meas_var = "HOMERUNS",
factor_var = "YEARS",
x_title = "Log Median",
y_title = "Log Spread"
)
spread_level_lst$scatter_plot
Run the code above in your browser using DataLab