ggplot2 - bar parcelle avec la pile et la dodge

Je suis en train de créer un barplot à l'aide de ggplot2 où je suis d'empilement par une variable et en esquivant par un autre.

Voici un exemple d'ensemble de données:

df=data.frame(
  year=rep(c("2010","2011"),each=4),
  treatment=rep(c("Impact","Control")),
  type=rep(c("Phylum1","Phylum2"),each=2),
  total=sample(1:100,8))

Je voudrais créer un barplot où x=treatment, y=total, la superposition des variables est type et l'esquiva variable est year. Bien sûr, je peux faire l'un ou l'autre:

ggplot(df,aes(y=total,x=treatment,fill=type))+geom_bar(position="dodge",stat="identity")

ggplot(df,aes(y=total,x=treatment,fill=year))+geom_bar(position="dodge",stat="identity")

Mais pas les deux! Merci à tous ceux qui peuvent donner des conseils.

Vous ne pouvez faire l'un ou l'autre, pas les deux. Voir mes réponses ici: stackoverflow.com/questions/12592041/...

InformationsquelleAutor jslefche | 2012-10-03

ggplot2 r

23

Voici une autre prendre l'aide de facettage au lieu d'esquiver:
```
ggplot(df, aes(x = year, y = total, fill = type)) +
    geom_bar(position = "stack", stat = "identity") +
    facet_wrap( ~ treatment)
```
Avec Tyler du changement proposé: + theme(panel.margin = grid::unit(-1.25, "lines"))
- Bonne alternative à vouloir à la fois. +1
- Hmm, idée intéressante. Je suppose qu'il aura à faire! Grâce à @Maiasaura et Matt Parker
- l'ajout de + theme(panel.margin = unit(-1.25, "lines")) pouvez sorte de les rendre de plus, comme ils sont dans le même champ visuel, mais toujours pas exactement ce que l'OP a été après. Nice meilleure alternative. +1
- Nice ne savais même pas une telle chose était possible! Juste un conseil, pour toute personne qui suit: j'ai eu à utiliser grid::unit pour obtenir ce sans chargement grid directement.
InformationsquelleAutor Matt Parker
10

Le plus proche que vous pouvez obtenir, il suffit de tracer une frontière autour de la dodged bars à mettre en évidence la superposition des type valeurs.
```
ggplot(df, aes(treatment, total, fill = year)) + 
geom_bar(stat="identity", position="dodge", color="black")
```
- Hmm, les frontières n'apparaît pas à la ligne avec les données. Par exemple, set.seed(8) avant d'exécuter le code et regarder les valeurs.
- Si tu voulais vraiment obtenir la fantaisie, je parie que vous pourriez utiliser geom_rect à remplir dans certaines parties, mais alors vous êtes à l'aide de ggplot à dessiner plutôt que de l'intrigue.
InformationsquelleAutor Maiasaura

Vous pouvez utiliser interaction(year, treatment) que l'axe des x de la variable comme une alternative à dodge.

library(tidyverse)

df=data.frame(
  year=rep(c("2010","2011"),each=4),
  treatment=rep(c("Impact","Control")),
  type=rep(c("Phylum1","Phylum2"),each=2),
  total=sample(1:100,8)) %>% 
  mutate(x_label = factor(str_replace(interaction(year, treatment), '\\.', ' /'), ordered=TRUE))

ggplot(df, aes(x=x_label, y=total, fill=type)) +
  geom_bar(stat='identity') + labs(x='Year /Treatment')

ggplot2 - bar parcelle avec la pile et la dodge

Créé sur 2018-04-26 par le reprex paquet (v0.2.0).

l'interaction semblait n'a été utilisé pour créer des étiquettes? Pourquoi alors ne pas paste0(year, "/", treatment)?

InformationsquelleAutor Kent Johnson

Il est cependant possible de faire sa difficile/délicats, vous avez essentiellement à la couche graphique à barres.

voici mon code:

library(tidyverse)
df=data.frame(
year=rep(c(2010,2011),each=4),
treatment=rep(c("Impact","Control")),
type=rep(c("Phylum1","Phylum2"),each=2),
total=sample(1:100,8))
# separate the by the variable which we are dodging by so 
# we have two data frames impact and control
impact <- df %>% filter(treatment == "Impact") %>% 
mutate(pos = sum(total, na.rm=T))
control <- df %>% filter(treatment == "Control") %>% 
mutate(pos = sum(total, na.rm=T))
# calculate the position for the annotation element
impact_an <- impact %>% group_by(year) %>% 
summarise(
pos = sum(total) + 12
, treatment = first(treatment)
)
control_an <- control %>% group_by(year) %>% 
summarise(
pos = sum(total) + 12
, treatment = first(treatment)
)
# define the width of the bars, we need this set so that
# we can use it to position the second layer geom_bar 
barwidth = 0.30
ggplot() +
geom_bar(
data = impact
, aes(x = year, y = total, fill = type)
, position = "stack"
, stat = "identity"
, width = barwidth
) + 
annotate(
"text"
, x = impact_an$year
,y = impact_an$pos
, angle = 90
, label = impact_an$treatment
) +
geom_bar(
data = control
# here we are offsetting the position of the second layer bar
# by adding the barwidth plus 0.1 to push it to the right
, aes(x = year + barwidth + 0.1, y = total, fill = type)
, position = "stack"
, stat = "identity"
, width = barwidth
) +
annotate(
"text"
, x = control_an$year + (barwidth * 1) + 0.1
,y = control_an$pos
, angle = 90
, label = control_an$treatment
) +
scale_x_discrete(limits = c(2010, 2011))

ggplot2 - bar parcelle avec la pile et la dodge
Ce n'est pas vraiment de l'échelle, cependant, il existe des moyens de code afin qu'il soit adapté à votre situation de crédit, où en raison de son origine, j'avais appris cette méthode dans le post suivant: https://community.rstudio.com/t/ggplot-position-dodge-with-position-stack/16425

J'ai essayé quelque chose de similaire, mais au lieu de saisir manuellement le calcul de la position de la barre, vous pouvez réellement mettre de chaque couche dans un ensemble distinct de x discrètes valeurs de l'axe, tout comme en 2010-a (pour l'impact), 2010-b (pour le contrôle), 2010-gap (comme un espace blanc), puis remplacer les étiquettes de l'axe. De cette façon, vous avez seulement besoin de manipuler vos données un peu, puis de dessiner chaque couche sur chaque propre x de valeurs.

InformationsquelleAutor Michael Gordon

Vous devez vous connecter pour publier un commentaire.