Tránh trùng lặp khi các điểm gây nhiễu

Question

Khi đọc các bài báo khoa học, tôi thường xuyên gặp các ô mà tại đó các điểm được jitter mà không chồng lên nhau. Tôi nghi ngờ nhiều người trong số họ được rút ra với một chương trình gọi là GraphPad Prism, nhưng chắc chắn phải có một cách để làm như vậy trong R. Mặc dù nó không phải là hoàn hảo (như với các điểm màu đỏ dưới đây) Tôi nghĩ rằng nó trông tốt hơn nhiều so với jittering ngẫu nhiên.

Nếu ai biết làm thế nào để làm điều này, tốt nhất là sử dụng một số chức năng cơ bản, tôi sẽ rất vui khi được biết.

Answer 1

Dưới đây là một giải pháp ggplot2 sử dụng geom_dotplot():

library(ggplot2) 
set.seed(1234) 

dat = data.frame(y=c(rpois(20, 4), rpois(20, 1), runif(20, 0, 20)), 
       category=rep(c("group_1", "group_2", "group_3"), c(20, 20, 20))) 

dotplot_1 = ggplot(dat, aes(x=category, y=y)) + 
      geom_dotplot(aes(fill=category), binaxis="y", 
         stackdir="center", binwidth=0.8) + 
      stat_summary(fun.y=median, fun.ymin=median, fun.ymax=median, 
         geom="crossbar", width=0.7) 

ggsave("dotplot_1.png", dotplot_1, width=6, height=4)