使用R绘图进行R点绘制

Question

用两个这样的因子生成点图的最佳方法是什么，最好使用标准R图（而不是ggplot）和2×2数据帧。水平线应该是手段。我曾尝试克利夫兰点的图表，但无法弄清楚如何得到两个数据系列，并具有点抖动：

Answer 1

下面的代码应该做的伎俩：

set.seed(1) 
t1 = rnorm(10); t2 = rnorm(10, 2) 
t1_g2 = rnorm(10, 4);t2_g2 = rnorm(10) 

##Don't print the axes labels 
par(ann=FALSE) 

##Plot first set of data. 
##Need to check for sensible ranges 
##Use the jitter function to spread data out. 
plot(jitter(rep(0,10),amount=0.2), t1, 
    xlim=range(-0.5,3.5), ylim=range(-3,8), 
    axes=FALSE,frame.plot=TRUE) 
points(jitter(rep(1,10), amount=0.2), t1_g2, col=2) 
points(jitter(rep(2,10), amount=0.2), t2) 
points(jitter(rep(3,10), amount=0.2), t2_g2, col=2) 

##Add in the y-axis 
axis(2, seq(-4,8,by=2)) 

##Add in the x-axis labels 
mtext("Treatment 1", side = 1, at=0.5) 
mtext("Treatment 2", side = 1, at=2.5) 

##Add in the means 
segments(-0.25, mean(t1), 0.25, mean(t1)) 
segments(0.75, mean(t1_g2), 1.25, mean(t1_g2)) 
segments(1.75, mean(t2), 2.25, mean(t2)) 
segments(2.75, mean(t2_g2), 3.25, mean(t2_g2)) 

##Add in the legend 
legend(0, 8, c("Group 1", "Group 2"), col=1:2, pch=1) 

这给：