Tôi có một gần-boxplot như jitter-cốt truyện:Thêm nhãn phân nhóm để một âm mưu jitter trong ggplot2
dt <- rbind(se,cb,cb.se)
qplot(ds, size, data=dt, geom="jitter", colour=root, facets = test ~ .)
plot http://i50.tinypic.com/1zbfjih.png
Tôi rất muốn đưa một nhãn tóm tắt cho từng nhóm ở giữa của cốt truyện - ví dụ kích thước tổng số ở đây:
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
...
tôi đã cố gắng sử dụng + geom_text(aes(x=ds, y=128, label=sum(size)), size=2)
để thêm nhãn, nhưng tôi nhận được cùng một nhãn trên mỗi vị trí - làm thế nào tôi có thể nhận được số tiền của chỉ là phần dữ liệu đó?
Edit: Dưới đây là nơi tôi đang ở bây giờ - có lẽ tôi chỉ cần đi theo hướng sai
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 ~ .)
Mã này không làm việc - Tôi nhận được một lỗi undefined columns selected
... ở đâu đó . Có lẽ đó là vì nhiều phần data=
?
Từ một đọc nhanh, mã mà có vẻ tốt đẹp đối với tôi. Thật khó để nói nhiều hơn mà không có ví dụ tái sản xuất. – hadley
Tôi đã đăng một giải pháp. Thật không may, vì bạn chưa cung cấp dữ liệu mẫu, tôi phải tạo lại dữ liệu ngẫu nhiên. Điều này có nghĩa là giải pháp có thể hoặc không thể phản ánh dữ liệu của riêng bạn. Để tham khảo trong tương lai, bạn sẽ thu hút thêm câu trả lời nếu bạn đưa ra ví dụ tối thiểu về vấn đề của mình và dán một số dữ liệu mẫu mà tất cả chúng ta có thể sử dụng để tạo lại vấn đề của bạn. Dù sao, tôi hy vọng nó sẽ giúp. – Andrie