plot_num_test.R

library(knitr)
library(kableExtra)
library(ggtext)
library(tidyverse)
library(here)

plot_data <- function(df) {
	ggplot() +
		geom_point(data = df, aes(x = wt, y = disp, colour = cyl), position = position_jitter(w = 0.8, h = 0)) +
		labs(
			x = "Weight (kg)",
			y = "Displacement (cm<sup>3</sup>)",
			caption = glue::glue("<br>Pink dots represent outliers and are removed from downstream analyses.<br>Error bars represent the standard error of the mean.<br>ANOVA model significance *p* < 0.05.<br>Treatments with the same letter are not significantly different at *α* = 0.05 according to Tukey's HSD. ")
			) + 
		theme(
				axis.title.y =  element_markdown(),					# utilize ggtext to add superscript for units
				panel.grid = 	element_blank(),						# get rid of background lines
				plot.caption =  element_textbox_simple()					# utilize ggtext to add italics and wrap text
				)	
}


large <- 
	tibble(rep = 1:1200) %>%
		mutate(
			data = list(sample_n(as_tibble(mtcars), 25)),
			plots = map(data, ~ plot_data(.)))


render_one <- function(df) {
	rmarkdown::render(
		here('plot_num_test.Rmd'),
		output_file = here("Large_num_plots_test_Experiment_Data_Summary.html"),
		params = list(input_data = df)
	)
}

large %>%
	render_one(.)