ggplot2: ajoutez la ligne pour la moyenne par groupe

Question

library(ggplot2) 

orderX <- c("A" = 1, "B" = 2, "C" = 3) 
y <- rnorm(20) 
x <- as.character(1:20) 
group <- c(rep("A", 5), rep("B", 7), rep("C", 5), rep("A", 3)) 
df <- data.frame(x, y, group) 
df$lvls <- as.numeric(orderX[df$group]) 

ggplot(data = df, aes(x=reorder(df$x, df$lvls), y=y)) + 
geom_point(aes(colour = group)) + 
geom_line(stat = "hline", yintercept = "mean", aes(colour = group)) 

Je veux créer un graphique comme celui-ci: cependant,

Cela fonctionne, quand je ne ai pas besoin de réorganiser les valeurs de X, quand je fais utiliser réorganiser, ça ne marche plus.

Answer 1

Comme de g gplot2 2.x cette approche est malheureusement cassée.

Le code suivant fournit exactement ce que je voulais, avec quelques calculs supplémentaires à l'avant:

library(ggplot2) 
library(data.table) 

orderX <- c("A" = 1, "B" = 2, "C" = 3) 
y <- rnorm(20) 
x <- as.character(1:20) 
group <- c(rep("A", 5), rep("B", 7), rep("C", 5), rep("A", 3)) 
dt <- data.table(x, y, group) 
dt[, lvls := as.numeric(orderX[group])] 
dt[, average := mean(y), by = group] 
dt[, x := reorder(x, lvls)] 
dt[, xbegin := names(which(attr(dt$x, "scores") == unique(lvls)))[1], by = group] 
dt[, xend := names(which(attr(dt$x, "scores") == unique(lvls)))[length(x)], by = group] 

ggplot(data = dt, aes(x=x, y=y)) + 
    geom_point(aes(colour = group)) + 
    facet_grid(.~group,space="free",scales="free_x") + 
    geom_segment(aes(x = xbegin, xend = xend, y = average, yend = average, group = group, colour = group)) 

L'image résultante:

Answer 2

De votre question, je ne sais pas si df$x est pertinent pour vos données, surtout si vous pouvez le commander à nouveau. Que diriez-vous simplement en utilisant group comme x, et jitter la position réelle de x pour séparer les points:

ggplot(data=df, aes(x=group,y=y,color=group)) + geom_point() + 
geom_jitter(position = position_jitter(width = 0.4)) + 
geom_errorbar(stat = "hline", yintercept = "mean", 
    width=0.8,aes(ymax=..y..,ymin=..y..)) 

Je l'ai utilisé errorbar au lieu de h_line (et l'effondrement ymax et ymin à y) depuis hline est complexe. Si quelqu'un a une meilleure solution à cette partie, j'aimerais voir.

---

mise à jour

Si vous voulez préserver l'ordre de X, essayez cette solution (avec X modifiée)

df$x = factor(df$x) 

ggplot(data = df, aes(x, y, group=group)) + 
facet_grid(.~group,space="free",scales="free_x") + 
geom_point() + 
geom_line(stat = "hline", yintercept = "mean")