if (FALSE) {
# In a Quarto document
plots <- makeme(
data = ex_survey,
dep = b_1:b_3,
crowd = c("target", "others"),
mesos_var = "f_uni",
mesos_group = "Uni of A"
)
# Create tabset with auto-detection
crowd_plots_as_tabset(plots)
# Create tabset for interval plots
int_plots <- makeme(
data = ex_survey,
dep = c_1:c_2,
indep = x1_sex,
type = "int_plot_html",
crowd = c("target", "others"),
mesos_var = "f_uni",
mesos_group = "Uni of A"
)
crowd_plots_as_tabset(int_plots, plot_type = "int_plot_html")
# Without download links
crowd_plots_as_tabset(plots, save = FALSE)
# With manual height override
crowd_plots_as_tabset(plots, fig_height = 8)
}
Run the code above in your browser using DataLab