ggplot2 :이 같은 그래프를 만들려면 그룹

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)) 

당 평균 행을 추가

이 수행 작업, 나는 내가 할 때, 그러나, X의 값을 다시 정렬 할 필요가 없을 때 재주문을 사용하면 더 이상 작동하지 않습니다.

Answer 1

으로을 (수정 X 포함)이 솔루션을, X의 순서를 유지하려고 할 경우 g의 gplot2 2.x이 접근법은 불행히도 문제가됩니다.

다음 코드는 내가 앞까지 몇 가지 추가 계산으로, 원 정확히 제공 :

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)) 

결과 이미지 :

Answer 2

귀하의 질문에 본인은이 데이터를 전혀 재구성 할 수없는 경우와 관련이 없습니다. df$x은 귀하의 데이터와 관련이 있습니다. 어떻게 바로 포인트를 분리하는 X로 group 및 jitter 실제 x 위치를 사용하는 방법에 대한 : 나는 errorbar 대신 h_line을 사용 (그리고 Ymax와 붕괴와 y에 Ymin를) hline 이후이 복잡했다

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..)) 

. 누군가가 그 부분에 더 나은 해결책을 가지고 있다면, 나는보고 싶다.

---

갱신

당신이

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")