diff --git a/docs/experimental/mini_plots.R b/docs/experimental/mini_plots.R
new file mode 100644
index 0000000..400746d
--- /dev/null
+++ b/docs/experimental/mini_plots.R
@@ -0,0 +1,19 @@
+mini_hist <- function(x, width = 60, height = 20,
+                      dir = "kableExtra", file = NULL,
+                      xaxt = 'n', yaxt = 'n', ann = FALSE, col = "gray",
+                      ...) {
+  if (!dir.exists(dir)) {
+    dir.create(dir)
+  }
+
+  if (is.null(file)) {
+    file <- tempfile("hist", dir, ".png")
+  }
+
+  grDevices::png(filename = file, width = width, height = height,
+                 bg = 'transparent')
+  graphics::par(mar = c(0, 0, 0, 0))
+  graphics::hist(x, xaxt = xaxt, yaxt = yaxt, ann = ann, col = col, ...)
+  grDevices::dev.off()
+  return(file)
+}