# NOT RUN {
# setup
set.seed(123)
library(ggstatsplot)
library(jmv)
data("bugs", package = "jmv")
# converting to long format
data_bugs <- bugs %>%
tibble::as_tibble(.) %>%
tidyr::gather(., key, value, LDLF:HDHF)
# creating the subtitle
ggstatsplot::subtitle_friedman_nonparametric(
data = data_bugs,
x = key,
y = value,
k = 2
)
# }
Run the code above in your browser using DataLab