ggplot2: forzare lo spazio per la categoria di secondo livello vuota

Question

Sto provando a mantenere lo "spazio vuoto" per i boxplot raggruppati a più livelli.

set.seed(42) 
n <- 100 
dat <- data.frame(x=runif(n), 
        cat1=sample(letters[1:4], size=n, replace=TRUE), 
        cat2=sample(LETTERS[1:3], size=n, replace=TRUE)) 
ggplot(dat, aes(cat1, x)) + geom_boxplot(aes(fill=cat2)) 

Se forzo uno dei gruppi da vuoto:

dat <- subset(dat, ! (cat1 == 'b' & cat2 == 'B')) 
table(dat$cat1, dat$cat2) 
##  
##  A B C 
## a 9 9 7 
## b 8 0 5 
## c 13 11 6 
## d 11 10 5 
ggplot(dat, aes(cat1, x)) + geom_boxplot(aes(fill=cat2)) 

Il secondo gruppo, "b", viene ora ampliato per riempire lo spazio . Quello che mi piace è:

SO 9818835 (forzando un livello di vuoto di apparire) funziona benissimo al livello superiore, ma non riesco a capire come farlo funzionare per un secondo livello di categorie. in scale_x_discrete(...), ho provato impostazione:

• breaks=letters[1:4]
• breaks=LETTERS[1:3]
• breaks=list(letters[1:4], LETTERS[1:3]) (uno stab)
• breaks=NULL
• breaks=func dove func <- function(x, ...) { browser(); 1; } per risolvere; ha offerto solo letters[1:4] e non ha mai richiesto il secondo livello

L'utilizzo di interactions(letters[1:4], LETTERS[1:3]) non lascia ancora spazio vuoto. Ho provato una soluzione iniettando un valore fuori limite x e forzandolo dallo schermo con scale_y_continuous(limits), ma ggplot2 è troppo intelligente per me e colmerà di nuovo il buco.

Esistono soluzioni eleganti (ad es. "Corrette" nei meccanismi ggplot2)?

Answer 1

Potrebbe coord_cartesian essere una soluzione che stai cercando?

Sarà ingrandire e non cercherà di "astuzia" i dati come scale_y_continuous

library(dplyr) 
library(ggplot2) 

set.seed(42) 
n <- 100 
dat <- data.frame(x=runif(n), 
        cat1=sample(letters[1:4], size=n, replace=TRUE), 
        cat2=sample(LETTERS[1:3], size=n, replace=TRUE)) 

LARGE_VALUE <- 2 

dat <- dat %>% 
    mutate(x = ifelse(cat1 == 'b' & cat2 == 'B', 
        LARGE_VALUE, 
        x)) 

ggplot(dat, aes(cat1, x)) + 
    geom_boxplot(aes(fill=cat2)) + 
    coord_cartesian(ylim = c(0,1))