Início / coding / Perguntas / 77496065
Accepted
M. Beausoleil
Asked: 2023-11-16 23:27:44 +0800 CST

Como usar ggplot2 e facet_wrap mas não descartar fatores dentro de um grupo no eixo x?

  • 772

Quero usar facet_wrap para traçar valores diferentes no eixo x para grupos diferentes. Porém, ao usar scale = "free_x", mostra valores únicos dentro de cada grupo. Veja exemplo abaixo:

library(ggplot2)
set.seed(1234)
nb = rep(LETTERS[1:3],4)
expand.grid(LETTERS[1:3], 1:3)
df = data.frame(ps = paste(rep(c("ps1","gc1"),6)),
                cr = rep(LETTERS[1:3],4),
                id = rep(x = month.abb[1:4], each = 3));df
df = df[order(df$ps),]
df[df$ps == "ps1","cr"] <- sample(LETTERS[4:6], size = 6, replace = TRUE)
df.all = rbind(df,df,df,df,df,df)
df.all$val = rnorm(n = nrow(df.all))

ggplot(df.all, 
       aes(x = cr,
           y = val)) + 
  geom_violin() +
  facet_wrap(vars(ps, id), 
             scales = "free_x",
             ncol = 4) +
  geom_point(position = position_jitter(width = 0.1, height = 0.1), 
             alpha= .3)

Na imagem aqui (que é a saída do código acima), adicionei os níveis que faltavam. Basicamente, existe o grupo "gc1" onde eu gostaria que os níveis não caíssem. Mas também não quero que os níveis do "ps1" apareçam no "gc1". Então, no final, gc1 deve mostrar apenas os níveis A, B, C e ps1 deve mostrar apenas D, E e F. Existe uma maneira de fazer isso?

insira a descrição da imagem aqui

2 respostas

  1. Best Answer

    Você pode alcançar o resultado desejado usando o ggh4xpacote que ggh4x::facetted_pos_scalespermite definir as escalas para cada faceta individualmente, por exemplo, para o seu caso, você poderia fazer:

    library(ggplot2)
library(ggh4x)

ggplot(
  df.all,
  aes(
    x = cr,
    y = val
  )
) +
  geom_violin() +
  geom_point(
    position = position_jitter(width = 0.1, height = 0.1),
    alpha = .3
  ) +
  facet_wrap(vars(ps, id),
    scales = "free_x",
    ncol = 4
  ) +
  facetted_pos_scales(
    x = list(
      ps == "gc1" ~ scale_x_discrete(limits = c("A", "B", "C")),
      ps == "ps1" ~ scale_x_discrete(limits = c("D", "E", "F"))
    )
  )

    insira a descrição da imagem aqui

    EDIT Aqui está uma abordagem para criar as escalas dinamicamente a partir dos dados que percorrem os psgrupos e usam reformulatepara criar os formulas for facetted_pos_scales:

    library(ggplot2)
library(ggh4x)

scale_x <- lapply(unique(df.all$ps), \(x) {
  reformulate(
    paste0("scale_x_discrete(limits=sort(unique(df.all$cr[df.all$ps =='", x, "'])))"),
    paste0("ps == '", x, "'")
  )  
})

ggplot(
  df.all,
  aes(
    x = cr,
    y = val
  )
) +
  geom_violin() +
  geom_point(
    position = position_jitter(width = 0.1, height = 0.1),
    alpha = .3
  ) +
  facet_wrap(vars(ps, id),
    scales = "free_x",
    ncol = 4
  ) +
  facetted_pos_scales(
    x = scale_x
  )
    • 5

  2. Aqui está uma solução alternativa:

    library(ggplot2)
library(tidyr)
library(dplyr)

df %>% 
  slice(rep(1:n(), times = 6)) %>%
  mutate(val = rnorm(n = n())) %>% 
  bind_rows(crossing(ps = "gc1", 
                     cr = LETTERS[1:3], 
                     id = unique(df.all$id)) %>%
              mutate(val = NA_real_),
            crossing(ps = "ps1", 
                     cr = LETTERS[4:6], 
                     id = unique(df.all$id)) %>%
              mutate(val = NA_real_)
            ) %>% 
  ggplot(aes(x = cr, y = val)) + 
  geom_violin() +
  geom_point(position = position_jitter(width = 0.1, height = 0.1), alpha = .3) +
  facet_wrap(~ ps + id, scales = "free_x", ncol = 4)

    insira a descrição da imagem aqui

    • 1

relate perguntas