base.json Visualisation

plot_base_json.R

library(tidyverse)
library(jsonlite)
library(here)

save_plot <- function(...) ggsave(width = 7, height = 5, ...)

data <- here("base.json") %>%
	fromJSON() %>%
	`[[`("thread") %>%
	map2(names(.), function(thread, thr_name) {
		thread[["histogram"]] %>%
			bind_rows() %>%
			pivot_longer(everything(), names_to = "timing") %>%
			add_column(thread = thr_name)
	}) %>%
	bind_rows() %>%
	mutate(
		timing = as.numeric(timing),
		value = as.numeric(value),
		thread = as.numeric(thread) %>% as.factor()
	)

data %>%
	ggplot(aes(x = timing)) +
	geom_histogram(bins = 100) +
	labs(#title = "Histogram",
		x = "Time",
		y = "Count")
save_plot("histogram_values.pdf")

data %>%
	ggplot(aes(x = thread, y = value)) +
	geom_boxplot() +
	labs(title = "Count Distribution per Thread",
			 x = "Thread",
			 y = "Count")
save_plot("distribution_per_thread.pdf")