andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

fix: as tibble to allow single variable plotting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-03-31 20:41:09 +02:00
commit 7b0692fd17
No known key found for this signature in database
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
R/plot_likert.R
View file

@ -22,18 +22,24 @@ plot_likert <- function(data,
ds <- list(data)
}
out <- lapply(ds, \(.x) {
.x[c(pri, sec)] |>
# na.omit() |>
plot_likert_single(color.palette = color.palette)
plot_likert_single(
data = .x,
include = tidyselect::any_of(c(pri, sec)),
color.palette = color.palette
)
})
wrap_plot_list(out, title = glue::glue(i18n$t("Grouped by {get_label(data,ter)}")))
}
plot_likert_single <- function(data, color.palette = "viridis") {
ggstats::gglikert(data = data) +
scale_fill_generate(palette=color.palette)+
plot_likert_single <- function(data,
include = dplyr::everything(),
color.palette = "viridis") {
data |>
dplyr::as_tibble() |>
ggstats::gglikert(include = include) +
scale_fill_generate(palette = color.palette) +
ggplot2::theme(
# legend.position = "none",
# panel.grid.major = element_blank(),