From 7b0692fd1764b9adbd552ca4cade7d21e92233b9 Mon Sep 17 00:00:00 2001 From: Andreas Gammelgaard Damsbo Date: Tue, 31 Mar 2026 20:41:09 +0200 Subject: [PATCH] fix: as tibble to allow single variable plotting --- R/plot_likert.R | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/R/plot_likert.R b/R/plot_likert.R index 625bb844..c18c57a1 100644 --- a/R/plot_likert.R +++ b/R/plot_likert.R @@ -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(),