El gráfico anterior (que publiqué hace poco en mi cuenta de Twitter) me lo sugirió este otro que el escritor Louis Phillips publicó en el número de febrero de 1979 de la revista Academe:
Para mí fue un ejercicio de uso del paquete patchwork de R combinado con ggplot2. Tal vez se pueda hacer más fácilmente este gráfico pero me resultó más complicado de lo que pensaba. Este es el código:
# Carga paquetes necesarios -----------------------------------------------
library(ggplot2)
library(patchwork)
# Genera los dos gráficos --------------------------------------
set.seed(100)
df_est <- data.frame(datos = rnorm(100))
g_est <- ggplot(df_est) +
geom_histogram(aes(x = datos, y = ..density..),
bins = 5,
fill = 'gray', col = 'black') +
theme_void()
g_mat <- ggplot(data.frame(x= seq(-3.5, 3.5, 1)), aes(x=x)) +
stat_function(fun = dnorm, size=1.2) +
theme_void()
# Crea la matriz de gráficos ----------------------------------------------
graficos <- rep(list(g_mat), 12)
graficos[[7]] <- g_est
wrap_plots(graficos, ncol = 3, nrow = 4, byrow = FALSE)
CAMINOS ALEATORIOS 