andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 01:49:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

feat: suppress warnings when plotting violin plots

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-08-08 11:47:55 +02:00
parent 46db0bd5e4
commit ca65bca2f8
No known key found for this signature in database
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
R/plot_violin.R
View file

@ -14,16 +14,19 @@ plot_violin <- function(data, pri, sec, ter = NULL) {
ds <- list(data) ds <- list(data)
} }
out <- lapply(ds, \(.ds){ # browser()
rempsyc::nice_violin( suppressWarnings({
data = .ds, out <- lapply(ds, \(.ds){
group = sec, rempsyc::nice_violin(
response = pri, data = .ds,
xtitle = get_label(data, var = sec), group = sec,
ytitle = get_label(data, var = pri) response = pri,
) xtitle = get_label(data, var = sec),
}) ytitle = get_label(data, var = pri)
)
})
wrap_plot_list(out,title=glue::glue("Grouped by {get_label(data,ter)}")) wrap_plot_list(out, title = glue::glue("Grouped by {get_label(data,ter)}"))
})
# patchwork::wrap_plots(out,guides = "collect") # patchwork::wrap_plots(out,guides = "collect")
} }