Início / coding / Perguntas / 79436905
Accepted
Homer Jay Simpson
Asked: 2025-02-13 23:40:53 +0800 CST

Classificar gglikert dentro das linhas de facetas dos subplots

  • 772

Tenho os mesmos dados simulados mostrados na página do GitHub da biblioteca, em relação às linhas e colunas de facetas (incluídas no exemplo reproduzível abaixo).

Mas eu quero classificar cada subplot com base na soma de concordo fortemente e concordo. Como posso conseguir isso em R usando gglikert?

library(ggstats)
library(dplyr)
library(ggplot2)

likert_levels <- c(
  "Strongly disagree",
  "Disagree",
  "Neither agree nor disagree",
  "Agree",
  "Strongly agree"
)
set.seed(42)
df <-
  tibble(
    q1 = sample(likert_levels, 150, replace = TRUE),
    q2 = sample(likert_levels, 150, replace = TRUE, prob = 5:1),
    q3 = sample(likert_levels, 150, replace = TRUE, prob = 1:5),
    q4 = sample(likert_levels, 150, replace = TRUE, prob = 1:5),
    q5 = sample(c(likert_levels, NA), 150, replace = TRUE),
    q6 = sample(likert_levels, 150, replace = TRUE, prob = c(1, 0, 1, 1, 0))
  ) |>
  mutate(across(everything(), ~ factor(.x, levels = likert_levels)))

df_group <- df
df_group$group1 <- sample(c("A", "B"), 150, replace = TRUE)
df_group$group2 <- sample(c("a", "b", "c"), 150, replace = TRUE)

gglikert(df_group,
  q1:q6,
  facet_cols = vars(group1),
  labels_size = 3
)

gglikert(df_group,
  q3:q6,
  facet_cols = vars(group1),
  facet_rows = vars(group2),
  labels_size = 3
) +
  scale_x_continuous(
    labels = label_percent_abs(),
    expand = expansion(0, .2)
  )

2 respostas

  1. Você poderia simplesmente adicionar sort = "ascending"um argumento ao gglikert.

    gglikert(df_group,
         q3:q6,
         facet_cols = vars(group1),
         facet_rows = vars(group2),
         labels_size = 3,
         sort = "ascending"
) +
  scale_x_continuous(
    labels = label_percent_abs(),
    expand = expansion(0, .2)
  )

    • 3
  2. Best Answer

    Como já explicado por @M-- não há como conseguir isso usando apenas gglikert. E com facet_grideu não vejo nenhuma opção para conseguir o resultado desejado sem patchwork(ou ...).

    Portanto, a abordagem fácil seria criar cada painel de faceta como um gglikertgráfico separado e combiná-los usando patchwork. Uma desvantagem dessa abordagem é que, em geral, acabamos com escalas x diferentes:

    library(tidyverse)
library(ggstats)
library(patchwork)

df_split <- df_group |>
  split(~ group1 + group2)

df_split |>
  map2(seq_along(df_split), \(x, y) {
    facet_layer <- if (y == 1) {
      facet_wrap(
        ~group1,
        scales = "free_y"
      )
    } else if (y == 2) {
      facet_grid(
        group2 ~ group1,
        scales = "free_y"
      )
    } else if (y %% 2 == 0) {
      facet_wrap(
        ~group2,
        strip.position = "right",
        scales = "free_y"
      )
    }

    gglikert(x,
      q1:q6,
      labels_size = 3,
      sort = "descending"
    ) +
      facet_layer
  }) |>
  wrap_plots(
    ncol = 2, guides = "collect"
  ) &
  theme(legend.position = "bottom")

    insira a descrição da imagem aqui

    A abordagem mais elaborada seria usar ggplot2a construção do gráfico Likert do zero, onde eu construiria minha resposta a uma de suas perguntas anteriores, mas acrescentaria patchworke permitiria coletar axestambém:

    dat <- df_group |>
  mutate(
    across(-c(group1, group2), ~ factor(.x, likert_levels))
  ) |>
  pivot_longer(-c(group1, group2), names_to = "var") |>
  filter(!is.na(value)) |>
  count(var, value, group1, group2) |>
  complete(var, value, group1, group2, fill = list(n = 0)) |>
  mutate(
    prop = n / sum(n),
    prop_lower = sum(prop[value %in% c("Strongly disagree", "Disagree")]),
    prop_higher = sum(prop[value %in% c("Strongly agree", "Agree")]),
    .by = c(var, group1, group2)
  ) |>
  arrange(group1, group2, prop_higher) |>
  mutate(
    y_sort = paste(var, group1, group2, sep = "."),
    y_sort = fct_inorder(y_sort)
  )

dat_tot <- dat |>
  distinct(group1, group2, var, y_sort, prop_lower, prop_higher) |>
  pivot_longer(-c(group1, group2, var, y_sort),
    names_to = c(".value", "name"),
    names_sep = "_"
  ) |>
  mutate(
    hjust_tot = ifelse(name == "lower", .5, .5),
    x_tot = ifelse(name == "lower", -1, 1)
  )

dat |>
  split(~ group1 + group2) |>
  imap(\(x, y) {
    facet_layer <- if (y == "A.a") {
      facet_wrap(
        ~group1,
        scales = "free_y"
      )
    } else if (y == "B.a") {
      facet_grid(
        group2 ~ group1,
        scales = "free_y"
      )
    } else if (grepl("^B", y)) {
      facet_wrap(
        ~group2,
        strip.position = "right",
        scales = "free_y"
      )
    }

    dat_tot <- dat_tot |>
      filter(interaction(group1, group2) == y)

    ggplot(x, aes(y = y_sort, x = prop, fill = value)) +
      geom_col(position = position_likert(reverse = FALSE)) +
      geom_text(
        aes(
          label = label_percent_abs(hide_below = .05, accuracy = 1)(prop),
          color = after_scale(hex_bw(.data$fill))
        ),
        position = position_likert(vjust = 0.5, reverse = FALSE),
        size = 8 / .pt
      ) +
      geom_label(
        aes(
          x = x_tot,
          label = label_percent_abs(accuracy = 1)(prop),
          hjust = hjust_tot,
          fill = NULL
        ),
        data = dat_tot,
        size =  8 / .pt,
        color = "black",
        fontface = "bold",
        label.size = 0,
        show.legend = FALSE
      ) +
      scale_y_discrete(labels = \(x) gsub("\\..*$", "", x)) +
      scale_x_continuous(
        labels = label_percent_abs(),
        expand = c(0, .15),
        limits = c(-1, 1)
      ) +
      scale_fill_brewer(palette = "BrBG") +
      facet_layer +
      theme_light() +
      theme(
        legend.position = "bottom",
        panel.grid.major.y = element_blank()
      ) +
      labs(x = NULL, y = NULL, fill = NULL)
  }) |>
  patchwork::wrap_plots(
    ncol = 2, guides = "collect"
  ) +
  patchwork::plot_layout(axes = "collect_x") &
  theme(legend.position = "bottom")

    insira a descrição da imagem aqui

    • 2

relate perguntas