Início / coding / Perguntas / 79195644
Accepted
Homer Jay Simpson
Asked: 2024-11-17 00:55:42 +0800 CST

Combine diferentes gráficos gglikert e gráficos de barras com base em diferentes critérios em R usando ggplot2

  • 772

Eu tenho um quadro de dados chamado df com uma variável de agrupamento e duas variáveis ​​em escala Likert:

set.seed(42)


likert_levels <- c("Strongly disagree", "Disagree", "Neutral", "Agree", "Strongly agree", NA)
df <- tibble(
  var = sample(c("Yes", "No"), 50, replace = TRUE),
  val1 = factor(sample(likert_levels, 50, replace = TRUE), levels = c("Strongly disagree", "Disagree", "Neutral", "Agree", "Strongly agree")),
  val2 = factor(sample(likert_levels, 50, replace = TRUE), levels = c("Strongly disagree", "Disagree", "Neutral", "Agree", "Strongly agree"))
  )

df
# A tibble: 50 × 3
   var   val1              val2          
   <chr> <fct>             <fct>         
 1 Yes   Agree             Agree         
 2 Yes   Strongly agree    Disagree      
 3 Yes   Agree             Disagree      
 4 Yes   Disagree          Neutral       
 5 No    Disagree          Strongly agree
 6 No    Neutral           Strongly agree
 7 No    Strongly disagree NA            
 8 No    Strongly agree    Neutral       
 9 Yes   Disagree          NA            
10 No    Disagree          Agree         
# ℹ 40 more rows
# ℹ Use `print(n = ...)` to see more rows

Eu quero glikert as duas variáveis ​​com base em três condições:

1) Quando var=="Sim" 2) Quando var == "Não" 3) sem var

e à esquerda de cada um dos três gráficos Likert com duas barras Likert de porcentagem para haver um gráfico de barras horizontais com a contagem de cada val1 e val2.

Algo parecido com isso aqui , mas três vezes um sobre o outro com as três condições que descrevi acima,

Como posso fazer isso em R usando ggplo2 e gglikert?

1 respostas

  1. Best Answer

    Uma opção seria usar uma função de plotagem para criar o gráfico Likert e o gráfico de barras para cada uma das três combinações, que poderiam então ser combinadas usando, por exemplo patchwork:

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

plot_fun <- function(x, y) {
  .data <- df |>
    filter(var %in% x)

  p1 <- .data |>
    ggstats::gglikert(include = -var) +
    aes(y = reorder(.question,
      ifelse(
        .answer %in% c("Strongly disagree", "Disagree"),
        1, 0
      ),
      FUN = sum
    ), decreasing = TRUE) +
    labs(title = paste0("var = ", y))

  p2 <- .data %>%
    tidyr::pivot_longer(-var) |>
    filter(!is.na(value)) |> 
    mutate(
      name = reorder(name,
        ifelse(
          value %in% c("Strongly disagree", "Disagree"),
          1, 0
        ),
        FUN = sum
      )
    ) |>
    ggplot(aes(y = name)) +
    geom_bar(fill = "lightgrey")
  
  list(p1, p2)
}

.include <- list(No = "No", Yes = "Yes", All = c("Yes", "No"))

purrr::imap(.include, plot_fun) |>
  purrr::reduce(c) |>
  wrap_plots(ncol = 2) +
  plot_layout(axes = "collect", guides = "collect", widths = c(.7, .3)) &
  labs(x = NULL, y = NULL) &
  theme(legend.position = "bottom")

    • 1

relate perguntas