dev/benchmark/pasilla_comparative_analyses.R

In stemangiola/ttBulk: Brings transcriptomics to the tidyverse

my_theme =
	theme_bw() +
	theme(
		panel.border = element_blank(),
		axis.line = element_line(),
		panel.grid.major = element_line(size = 0.2),
		panel.grid.minor = element_line(size = 0.1),
		text = element_text(size=12),
		legend.position="bottom",
		aspect.ratio=1,
		strip.background = element_blank(),
		axis.title.x  = element_text(margin = margin(t = 10, r = 10, b = 10, l = 10)),
		axis.title.y  = element_text(margin = margin(t = 10, r = 10, b = 10, l = 10)),
		axis.text.x = element_text(angle = 90, hjust = 1, vjust=0.2)
	)

stats =
	readRDS("dev/stats_pasilla_ttBulk.rds") %>%
	mutate(Method = "tidybulk") %>%
	bind_rows(
		readRDS("dev/stats_pasilla_standard.rds") %>%
		mutate(Method = "Standard")
	) %>%
	mutate(elapsed_pasilla = map(time, ~ as.numeric(.x$toc - .x$tic))) %>%
	unnest(elapsed_pasilla) %>%
	select(-time) %>%
	
	# Attach TCGA
	left_join(
		readRDS("dev/stats_TCGA_ttBulk.rds") %>%
			mutate(Method = "tidybulk") %>%
			bind_rows(
				readRDS("dev/stats_TCGA_standard.rds") %>%
					mutate(Method = "Standard")
			) %>%
			mutate(elapsed_TCGA = map(time, ~ as.numeric(.x$toc - .x$tic))) %>%
			unnest(elapsed_TCGA) %>%
			select(-time, -lines, -assignments) 
	) %>%
	mutate(step = factor(step, levels = unique(.$step)))


(
  stats %>%
    rename( `Number of lines` = lines, `Number of variable assignments` = assignments, `Seconds elapsed Pasilla` = elapsed_pasilla, `Seconds elapsed TCGA` = elapsed_TCGA, Steps = step ) %>%
  	pivot_longer(names_to = ".variable", values_to = "Count", cols = c(`Number of lines`, `Number of variable assignments`, `Seconds elapsed Pasilla`, `Seconds elapsed TCGA`)) %>%
  	mutate(.variable = .variable %>% factor(levels = c( "Number of variable assignments", "Number of lines", "Seconds elapsed Pasilla", "Seconds elapsed TCGA"))) %>%
  	ggplot(aes(x = Steps, y = Count, color = Method, group = Method)) +
  	geom_line() +
  	geom_point() +
  	facet_wrap(~.variable, scales = "free", nrow = 1) +
    scale_color_brewer(palette = "Set1") +
  	my_theme 
) %>%
  ggsave(
    filename =	"dev/pasilla_benchmark.pdf",
    device = "pdf",
    useDingbats=FALSE,
    units = c("mm"),
    width = 183 
  )