ggnostic_continuous_fn <- fn_switch(list(
default = ggally_points,
.fitted = ggally_points,
.se.fit = ggally_nostic_se_fit,
.resid = ggally_nostic_resid,
.hat = ggally_nostic_hat,
.sigma = ggally_nostic_sigma,
.cooksd = ggally_nostic_cooksd,
.std.resid = ggally_nostic_std_resid
))
ggnostic_combo_fn <- fn_switch(list(
default = ggally_box_no_facet,
fitted = ggally_box_no_facet,
.se.fit = ggally_nostic_se_fit,
.resid = ggally_nostic_resid,
.hat = ggally_nostic_hat,
.sigma = ggally_nostic_sigma,
.cooksd = ggally_nostic_cooksd,
.std.resid = ggally_nostic_std_resid
))
Run the code above in your browser using DataLab