Ajouter les axes x et y pour tous facet_wrap

Il est souvent souhaitable de minimiser l'encre dans une parcelle. J'ai une facettes de la parcelle (facet_wrap) et à supprimer autant d'encre que possible tout en préservant la lisibilité. J'ai mis que j'aimerais à l'exception de l'axe x et y n'est pas présent pour les facettes (parcelles), sauf sur l'extrême gauche ou en bas. Avec tant d'encre supprimé je crois que l'œil a besoin de ces repères et je demande comment faire pour mettre les axes x et y dans toutes les parcelles au sein d'un facet_wrap. Ci-dessous mon code donc loin, le courant de sortie et la deired de sortie (lignes rouges sont souhaité ajouter):

library(ggplot); library(grid)

ggplot(mtcars, aes(mpg, hp)) + 
    geom_point() + 
    facet_wrap(~carb) +
    theme(panel.grid = element_blank(),
        panel.background = element_rect(fill = "white", colour = "black"), 
        panel.border = element_rect(fill = NA, colour = "white"), 
        axis.line = element_line(),
        strip.background = element_blank(),
        panel.margin = unit(2, "lines"))

Actuel De La Parcelle
Ajouter les axes x et y pour tous facet_wrap

Terrain
Ajouter les axes x et y pour tous facet_wrap

J'ai eu un could not find function "unit" erreur sur votre exemple.
toutes mes excuses. permettez-moi d'ajouter les bibliothèques utilisées.
Vous ne pouvez pas faire cela très facilement, parce que le axis.line thème élément ne sera pas affiché sur chaque panneau, à moins que scales = "free", et la panel.border thème élément est un rectangle, et vous ne pouvez pas spécifier des valeurs différentes pour les différents côtés d'un rectangle élément. Vous pouvez sorte de faux avec geom_vline et geom_hline, mais il sera difficile de l'obtenir à regarder à droite.
Vous pouvez obtenir des idées à partir de @baptiste réponses here et here.
gridExtra::borderGrob(type=9) pourrait aider, si ggplot2 avait permis une certaine souplesse dans les éléments de thème.
pouvez-vous undelete votre réponse?
Je ne pense pas qu'ils soient très utiles exemples pour une utilisation future, j'ai surtout mis en place pour la discussion qu'ils ne rentrent pas dans les commentaires

InformationsquelleAutor Tyler Rinker | 2014-03-01

plus simple serait d'ajouter des segments dans chaque parcelle de bord,

ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() + 
  facet_wrap(~carb) +
  theme_minimal() +
  annotate("segment", x=-Inf, xend=Inf, y=-Inf, yend=-Inf)+
  annotate("segment", x=-Inf, xend=-Inf, y=-Inf, yend=Inf)

Ajouter les axes x et y pour tous facet_wrap

Pour moi, il se retrouve dans les différentes largeur des lignes supplémentaires, ce qui est assez gênant...

InformationsquelleAutor baptiste

29

Cela devrait simplifier les choses beaucoup:
```
library('ggthemes')
ggplot(mtcars, aes(mpg, hp)) + geom_point() + facet_wrap(~carb, scales='free') + 
    theme_tufte() + theme(axis.line=element_line()) + 
    scale_x_continuous(limits=c(10,35)) + scale_y_continuous(limits=c(0,400))
```
- Meilleure réponse malheureusement scales = "free" pour moi n'est pas bon. +1
- Voir modifier. N'avez pas remarqué que vous étiez contraignant du tout pour les mêmes échelles.
- Cette réponse n'est pas avec la dernière ggplot2 version 2.2.1
- fonctionne pour moi w/ ggplot2_2.2.1 et ggthemes_3.4.0
- ok alors, mais je suppose que c'est à cause de ggthemes? ggplot lui-même ne fonctionne pas?
InformationsquelleAutor Thomas
6

Suivantes Thomas réponse à partir de ci - dessus

Il vous suffit de définir scales='free' dans facet_wrap et assurez-vous de définir les limites dans scale_x_continuous et scale_y_continuous
```
ggplot(mtcars, aes(mpg, hp)) + geom_point() + facet_wrap(~carb, scales='free') + 
    scale_x_continuous(limits=c(10,35)) + scale_y_continuous(limits=c(0,400))
```
InformationsquelleAutor Tal Galili

La citron package ajoute cette fonctionnalité; voir
cette vignette. (Exemple de code et de la parcelle à partir de là.)

library(lemon)
p + facet_rep_grid(drv ~ cyl) + coord_capped_cart(bottom='both', left='both') +
  theme_bw() + theme(panel.border=element_blank(), axis.line=element_line())

Ajouter les axes x et y pour tous facet_wrap

InformationsquelleAutor Aaron - Reinstate Monica

Ici est longue solution de contournement.

Premier, magasin de votre parcelle d'origine comme objet, puis créer un autre complot qui n'ont pas d'axe de tiques et de l'axe des textes.

p1<-ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() + 
  facet_wrap(~carb) +
  theme(panel.grid = element_blank(),
        panel.background = element_blank(), 
        panel.border = element_blank(), 
        axis.line = element_line(),
        strip.background = element_blank(),
        panel.margin = unit(2, "lines"))

p2<-ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() + 
  facet_wrap(~carb) +
  theme(panel.grid = element_blank(),
        panel.background = element_blank(), 
        panel.border = element_blank(), 
        axis.line = element_line(),
        strip.background = element_blank(),
        panel.margin = unit(2, "lines"),
        axis.ticks=element_blank(),
        axis.text=element_blank())

Maintenant utiliser la fonction ggplotGrob() pour convertir les deux parcelles de grobs. Si nous nous penchons sur la structure de ces grobs vous verrez que visible de l'axe y est grob 14 et 17 (d'autres sont à zéro grobs), et de l'axe x sont grobs 23 à 25.

g1<-ggplotGrob(p1)
g2<-ggplotGrob(p2)
g2
TableGrob (12 x 12) "layout": 28 grobs
z         cells       name                                     grob
1   0 ( 1-12, 1-12) background          rect[plot.background.rect.3481]
2   1 ( 4- 4, 4- 4)    panel-1                gTree[panel-1.gTree.3356]
3   2 ( 4- 4, 7- 7)    panel-2                gTree[panel-2.gTree.3366]
4   3 ( 4- 4,10-10)    panel-3                gTree[panel-3.gTree.3376]
5   4 ( 8- 8, 4- 4)    panel-4                gTree[panel-4.gTree.3386]
6   5 ( 8- 8, 7- 7)    panel-5                gTree[panel-5.gTree.3396]
7   6 ( 8- 8,10-10)    panel-6                gTree[panel-6.gTree.3406]
8   7 ( 3- 3, 4- 4)  strip_t-1    absoluteGrob[strip.absoluteGrob.3448]
9   8 ( 3- 3, 7- 7)  strip_t-2    absoluteGrob[strip.absoluteGrob.3453]
10  9 ( 3- 3,10-10)  strip_t-3    absoluteGrob[strip.absoluteGrob.3458]
11 10 ( 7- 7, 4- 4)  strip_t-4    absoluteGrob[strip.absoluteGrob.3463]
12 11 ( 7- 7, 7- 7)  strip_t-5    absoluteGrob[strip.absoluteGrob.3468]
13 12 ( 7- 7,10-10)  strip_t-6    absoluteGrob[strip.absoluteGrob.3473]
14 13 ( 4- 4, 3- 3)   axis_l-1 absoluteGrob[axis-l-1.absoluteGrob.3433]
15 14 ( 4- 4, 6- 6)   axis_l-2         zeroGrob[axis-l-2.zeroGrob.3434]
16 15 ( 4- 4, 9- 9)   axis_l-3         zeroGrob[axis-l-3.zeroGrob.3435]
17 16 ( 8- 8, 3- 3)   axis_l-4 absoluteGrob[axis-l-4.absoluteGrob.3441]
18 17 ( 8- 8, 6- 6)   axis_l-5         zeroGrob[axis-l-5.zeroGrob.3442]
19 18 ( 8- 8, 9- 9)   axis_l-6         zeroGrob[axis-l-6.zeroGrob.3443]
20 19 ( 5- 5, 4- 4)   axis_b-1         zeroGrob[axis-b-1.zeroGrob.3407]
21 20 ( 5- 5, 7- 7)   axis_b-2         zeroGrob[axis-b-2.zeroGrob.3408]
22 21 ( 5- 5,10-10)   axis_b-3         zeroGrob[axis-b-3.zeroGrob.3409]
23 22 ( 9- 9, 4- 4)   axis_b-4 absoluteGrob[axis-b-4.absoluteGrob.3415]
24 23 ( 9- 9, 7- 7)   axis_b-5 absoluteGrob[axis-b-5.absoluteGrob.3421]
25 24 ( 9- 9,10-10)   axis_b-6 absoluteGrob[axis-b-6.absoluteGrob.3427]
26 25 (11-11, 4-10)       xlab             text[axis.title.x.text.3475]
27 26 ( 4- 8, 2- 2)       ylab             text[axis.title.y.text.3477]
28 27 ( 2- 2, 4-10)      title               text[plot.title.text.3479]

Donc, utiliser les grobs sur un terrain de 2 pour remplacer zéro grobs dans la parcelle 1 et vous obtiendrez des lignes d'axe.

g1[[1]][[15]]<-g2[[1]][[14]]
g1[[1]][[16]]<-g2[[1]][[14]]
g1[[1]][[18]]<-g2[[1]][[14]]
g1[[1]][[19]]<-g2[[1]][[14]]
g1[[1]][[20]]<-g2[[1]][[23]]
g1[[1]][[21]]<-g2[[1]][[23]]
g1[[1]][[22]]<-g2[[1]][[23]]
grid.draw(g1)

Ajouter les axes x et y pour tous facet_wrap

pourquoi ne pas simplement ajouter des segments de chaque panneau de la gtable?
Parce que je ne sais pas comment faire. Vous êtes les bienvenus pour montrer que.
Fonctionne bien, mais je vois baptiser les plus généralisables réponse qu'il a supprimé. +1
Oui, baptiste réponse est beaucoup mieux.

InformationsquelleAutor Didzis Elferts

Vous devez vous connecter pour publier un commentaire.