có thể bù đắp điểm jitter trong hộp ggplot

Question

Trong ggplot boxplot, thật dễ dàng để sử dụng jitter để thêm các điểm dữ liệu thô với các mức độ khác nhau của jitter. Với số không jitter, mã sau đây

dat <- data.frame(group=c('a', 'b', 'c'), values = runif(90)) 

ggplot(dat, aes(group, values)) + 
geom_boxplot(outlier.size = 0) + 
geom_jitter(position=position_jitter(width=0), aes(colour=group), alpha=0.7) + 
ylim(0, 1) + stat_summary(fun.y=mean, shape=3, col='red', geom='point') + 
opts(legend.position = "right") + ylab("values") + xlab("group") 

tạo lô dưới đây.

Có thể sử dụng số không jitter nhưng thêm chênh lệch sao cho các điểm nằm trong một dòng nhưng được dịch chuyển sang trái 25% chiều rộng hộp? Tôi đã thử geom_point với dodge nhưng điều này tạo ra một jitter.

Answer 1

Nếu chúng tôi chuyển đổi nhóm thành số và sau đó thêm một bù đắp, bạn dường như có được kết quả mong muốn. Có thể là một/cách hiệu quả hiệu quả hơn, nhưng cung cấp cho này một whirl:

ggplot(dat, aes(group, values)) + 
    geom_boxplot(outlier.size = 0) + 
    geom_point(aes(x = as.numeric(group) + .25, colour=group), alpha=0.7) + 
    ylim(0, 1) + stat_summary(fun.y=mean, shape=3, col='red', geom='point') + 
    opts(legend.position = "right") + ylab("values") + xlab("group")