내가 지터 플롯과 같은 거의-상자 그림을 ggplot2

Question

에서 지터 플롯에 하위 그룹 레이블을 추가 내가 레이블을 추가 할 + geom_text(aes(x=ds, y=128, label=sum(size)), size=2)를 사용하려고했습니다

aggregate(list(size=dt$size), list(dt$ds, dt$test), sum) 

    Group.1 Group.2 size 
1  b217  se 9847 
2  c10  se 97296 
3  c613  se 21633 
4  c7  se 207540 
... 

, 그러나 나는 각 위치에 동일한 레이블을 얻을 - 어떻게의 합계를 얻을 수 있습니다 : - 음모의 예를 들어 크기가 여기 합계 데이터의 바로 그 섹션?

편집

: 지금 어디에 있어요 여기 가있어 - 내가 undefined columns selected 오류 ... 어딘가에 - 어쩌면 난 그냥

data <- rbind(se,cb,cb.se) 
labels <-ddply(data, c("ds", "test"), function(df) sum(df$size)) 
ggplot(data=data, aes(x=ds)) + 
    geom_jitter(aes(y=size, colour=root)) + 
    geom_text(data=labels, aes(x=ds, y=600, label=V1), size=3) + 
    facet_wrap(test ~ .) 

이 코드가 작동하지 않는 잘못된 방향으로 갈거야 . 다중 data= 섹션 때문일 수 있습니까?

Answer 1

샘플 데이터를 제공하지 않으므로 임의의 데이터를 사용하여 솔루션을 시연합니다.

set.seed(1) 
n <- 100 
dat <- data.frame(
    ds = sample(paste("x", 1:8, sep=""), n, replace=TRUE), 
    size = runif(n, 0, 250), 
    root = sample(c(TRUE, FALSE), n, replace=TRUE), 
    test = sample(c("se", "cb", "cb.se"), n, replace=TRUE) 
) 


head(dat) 
    ds  size root test 
1 x3 163.68098 TRUE cb.se 
2 x3 88.29932 TRUE se 
3 x5 67.56504 FALSE cb 
4 x8 248.17102 TRUE cb 
5 x2 158.37332 TRUE cb 
6 x8 53.30203 FALSE cb.se 

p <- ggplot(dat, aes(x=ds, y=size)) + 
    geom_jitter(aes(colour=root)) + 
    facet_grid(test~.) 

레이블 데이터가 들어있는 데이터 프레임을 만듭니다. summarize의 사용에 유의하십시오. 이것은 그 코드가 나에게 잘 보인다는 data.frame 빠른 읽기에서

labels <- ddply(dat, .(ds, test), summarize, size=round(sum(size), 0)) 
head(labels) 
    ds test size 
1 x1 cb 193 
2 x1 cb.se 615 
3 x1 se 274 
4 x2 cb 272 
5 x2 cb.se 341 
6 x2 se 1012 

p + geom_text(aes(x=ds, label=size, y=128), data=labels, size=2) 

Answer 2

여기를보세요. 도움이 될 수도 있습니다. Adding direct labels to ggplot2 and lattice plots