# NOT RUN {
library(dplyr)
library(ggplot2)
library(forcats)
expand.grid(
df = c(3,5,10,30),
scale = c(1,1.5)
) %>%
ggplot(aes(y = 0, dist = "student_t", arg1 = df, arg2 = 0, arg3 = scale, color = ordered(df))) +
stat_dist_slab(p_limits = c(.01, .99), fill = NA) +
scale_y_continuous(breaks = NULL) +
facet_grid( ~ scale) +
labs(
title = "dstudent_t(x, df, 0, sigma)",
subtitle = "Scale (sigma)",
y = NULL,
x = NULL
) +
theme_ggdist() +
theme(axis.title = element_text(hjust = 0))
# }
Run the code above in your browser using DataLab