ajuster automatiquement les limites d'axe tout en traçant des parcelles séparées ensemble

Question

Je voudrais ajuster automatiquement les graphiques ggplot tout en traçant côte à côte.

library(ggplot2) 
library(gridExtra) 

set.seed(123) 
freq <- sample(1:10, 7, replace = T) 
labels <- c('AUS', 'NZ', 'ENG', 'SOC', 'PAK', 'SRI', 'IND') 
value <- paste("i",1:10,sep='') 

lab <- rep(unlist(lapply(1:length(freq), function(x) rep(labels[x],freq[x]))),2) 
ival <- rep(unlist(lapply(1:length(freq), function(x) value[1:freq[x]])),2) 

df <- data.frame(lab, ival, type=c(rep('Type1',42),rep('Type2',42)),val=runif(84,0,1)) 

Tracé des données générées en utilisant le processus aléatoire ci-dessus.

plotUng <- ggplot(df, aes(x=ival, y=val, col = type, group = type)) + 
    geom_line() + 
    geom_point(aes(x=ival, y=val)) + 
    facet_wrap(~lab, ncol=3) + 
    theme(axis.text.x=element_text(angle=45, vjust=0.3)) + 
    scale_x_discrete(limits=paste('i',1:10,sep='')) 

regroupant maintenant les données lab sur la base de certaines conditions. Maintenant, je voudrais générer une nouvelle intrigue basée sur les données groupées.

dfGrp <- df %>% mutate(lab = recode(lab, 'AUS' = 'A', 'NZ' = 'A', 'ENG' = 'A', 
            'SOC' = 'A', 'PAK' = 'B', 'SRI' = 'B')) %>% 
    group_by(lab, ival, type) %>% mutate(val = mean(val)-0.2) %>% ungroup() %>% distinct() 

plotG <- ggplot(dfGrp, aes(x=ival, y=val, col = type, group = type)) + 
    geom_line() + 
    geom_point(aes(x=ival, y=val)) + 
    facet_wrap(~lab, ncol=3) + 
    theme(axis.text.x=element_text(angle=45, vjust=0.3)) + 
    scale_x_discrete(limits=paste('i',1:10,sep='')) 

Traçage les side-by-side deux parcelles ci-dessus à titre de comparaison en utilisant grid.arrange.

grid.arrange(plotUng, plotG, ncol=2) 

Réglage des limites de l'axe y après une inspection manuelle de la parcelle ci-dessus que plotUng a des limites plus larges que plotG. Donc, ajusté les limites de plotG avec les limites de plotUng comme coord_cartesian(ylim = ggplot_build(plotUng)$layout$panel_ranges[[1]]$y.range).

grid.arrange(plotUng, plotG + coord_cartesian(ylim = ggplot_build(plotUng)$layout$panel_ranges[[1]]$y.range), ncol=2) 

L'intrigue ci-dessus est comme prévu. Existe-t-il un moyen de le faire automatiquement (juste avec les objets de la parcelle) sans inspection manuelle, car il n'est pas toujours possible d'inspecter manuellement toutes les parcelles et d'ajuster les limites de l'axe en conséquence?

Answer 1

Ce que vous avez fait avec ggplot_build() peut être automatisé. Mais pour moi, la façon la plus simple de comparer plusieurs parcelles est de trouver les valeurs minimum et maximum pour tous les objets à comparer, puis de mettre ces valeurs comme coord_cartesian() de tous les objets. Par exemple ici:

lim_y <- c(min(df$val, dfGrp$val), max(df$val, dfGrp$val)) 

plotUng <- plotUng + coord_cartesian(ylim = lim_y) 
plotG <- plotG + coord_cartesian(ylim = lim_y) 

grid.arrange(plotUng, plotG, ncol=2) 

Depuis trouver les valeurs extrêmes de plusieurs colonnes est simple, cela est la façon la plus « automatisée » Je l'ai trouvé.

Notez que les coordonnées des problèmes ne se produit que pour y-limites dans ggplot