positionnement horizontal boxplots dans ggplot2

Je suis en train de faire un tracé horizontal boxplots dans ggplot2, vous ne pouvez le faire en utilisant coord_flip(). J'essaie aussi de l'espace de la boxplots verticalement afin de regrouper certaines séries. J'ai lu que le facettage est recommandé pour ce genre de chose, mais ce qui est incompatible avec coord_flip(), comme nous pouvons le voir ici: ggplot2: boîte à moustaches avec facet_grid et gratuit échelle. Alors je me demandais si il est possible d'utiliser des niveaux de vide afin de créer des espaces vides. Voici ce que j'ai réussi à faire jusqu'à présent:

d <- diamonds
library("ggplot2")
levels(d$cut) <- list(A="Fair", B="Good", "-", C="Very Good", D="Ideal", E="Premium")
p = ggplot(d, aes(x=cut, y=depth))
p + 
    geom_boxplot(color="black", size=0.2) + 
    theme_bw() + 
    scale_x_discrete(breaks = c("A", "B", "-", "C", "D", "E"), drop=FALSE) +
    coord_flip()

ph = 2.75
pw = 4
ggsave("plot.png", height=ph, width=pw)

Comme vous pouvez le voir, si je crée un nouveau niveau avec des "-" et l'inclure dans scale_x_discrete(), alors quelque part, je reçois une ligne vide. Le problème est que je peux seulement ajouter un espace. Quelqu'un a une idée sur la façon d'ajouter des espaces entre ces horizontale de la boîte de parcelles?

OriginalL'auteur user1704042 | 2012-09-27

Voici une méthode qui vous permettra d'ajouter plus vierge niveaux:

d <- diamonds
levels(d$cut) <- list(A="Fair", B="Good", " "="space1", C="Very Good", D="Ideal", "  "="space2", E="Premium")
ggplot(d, aes(x=cut, y=depth)) +
  geom_boxplot(color="black", size=0.2) + 
  theme_bw() + 
  scale_x_discrete(breaks = c("A", "B", " ", "C", "D", "  ", "E"), drop=FALSE) +
  coord_flip()

Cela laissera des marques de graduation sur les entretoises ainsi, si:

positionnement horizontal boxplots dans ggplot2

Retrait de toutes les tiques est simple en ajoutant:

+ theme(axis.ticks.y = element_line(linetype=0))

positionnement horizontal boxplots dans ggplot2

Mais si vous souhaitez supprimer les marques de graduation seulement pour les bagues, au moins un moyen (je suis sûr qu'il y a d'autres) est de le faire avec une fonction personnalisée:

f <- function(x) {
  x[!x %in% c("A", "B", "C", "D", "E")] <- NA
  x
}

ggplot(d, aes(x=cut, y=depth)) +
  geom_boxplot(color="black", size=0.2) + 
  theme_bw() + 
  scale_x_discrete(breaks=f, drop=FALSE) +
  coord_flip()

positionnement horizontal boxplots dans ggplot2

Dans le cas où quelqu'un a du mal à voir la différence, c'est que les tiques et les lignes de la grille sur l'axe des ordonnées.

OriginalL'auteur Ilari Scheinin

Vous devez vous connecter pour publier un commentaire.