Làm cách nào để khắc phục điểm trùng lặp mà không có jitter hoặc độ trong suốt trong ggplot2

Question

Tôi bắt đầu sử dụng ggplot2. Tôi có một số dữ liệu chi tiết n nhỏ (khoảng 30 hoặc hơn) với nhiều chồng chéo. Cả jitter lẫn alpha (trong suốt) đều không phù hợp. Thay vào đó, một dải vải với ngăn xếp và bù đắp làm tốt nhất nhưng tôi không biết làm thế nào để làm điều đó trong ggplot2. Bạn có biết?

Để xem kết quả cuối cùng nên được nhấp vào số graphic này.

Đây là tập lệnh tôi đã sử dụng cách đây vài năm.

stripchart(SystData$DayTo1Syst~SystData$strain,vertical=TRUE,method="stack",pch=19,offset=.3,xlab="Strain",main="Rapidity of Systemic Disease Onset",ylab="Days post inoculation") 

Answer 1

# your data 
df <- data.frame(gp = rep(LETTERS[1:5], each =8), y = sample(1:4,40,replace=TRUE)) 
# calculate offsets 
df <- ddply(df, .(y, gp), transform, offset = (1:length(gp)-1)/20) 
qplot(gp, y, data=df) + stat_identity(aes(as.numeric(gp)+offset)) + theme_bw() 

Answer 2

Bạn có thể sử dụng position_dodge.

df <- data.frame(gp = rep(LETTERS[1:5], each =8), 
       y = sample(1:4,40,replace=TRUE)) 
qplot(gp,y,data=df,order=y,position=position_dodge(width=0.5)) 

alt text http://img100.imageshack.us/img100/8760/dodgel.png

Answer 3

Bạn muốn sử dụng geom_dotplot từ ggplot2

có thể bạn sẽ muốn sử dụng:

ggplot(insert your arguments here) + geom_dotplot(binaxis = "y", stackdir = "center") 

Hope this helps. Kết quả sẽ trông thực sự sạch sẽ đó là những gì tôi nghĩ rằng bạn muốn.