Как преодолеть перекрывающиеся точки без дрожания или прозрачности в ggplot2

Question

Я начинаю использовать ggplot2. У меня есть небольшие n (около 30 или около того) гранулированных данных с большим количеством совпадений. Ни джиттер, ни альфа (прозрачность) не подходят. Вместо этого лучше всего использовать стрипчарт со стеком и смещением, но я не знаю, как это сделать в ggplot2. Знаете ли вы?

Чтобы увидеть, каким должен быть конечный результат, нажмите на рисунок .

Вот сценарий, который я использовал несколько лет назад.

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

Вы можете использовать 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))

альтернативный текст http://img100.imageshack.us/img100/8760/dodgel.png

Answer 2

# 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 3

Вы хотите использовать geom_dotplot из ggplot2

вы, вероятно, захотите использовать:

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

Надеюсь, это поможет. Результаты будут выглядеть действительно чистыми, что, как я думаю, вы хотите.