箱形图旁边的点图

Question

我试图弄清楚如何在一个图表中绘制箱图和一起。

从以下开始：

data              <- data.frame(matrix(rexp(50), 50))
colnames(data)[1] <- c("values")
data$s1           <- as.factor(c(rep("AA", 30), rep("AC", 18), rep("CC", 2)))
data$s2           <- as.factor(c(rep("AA", 25), rep("AG", 22), rep("GG", 3)))

boxplot(as.numeric(values)~s1,data=data, outline=F, range=1.5)
boxplot(as.numeric(values)~s2,data=data, outline=F, range=1.5)

我几乎得到了我想要的东西。但由于CC和GG组的数量很少，我建议分别只绘制CC和GG组的2或3个点。

或者使用以前的数据做一个简单的图表可能会更好吗？怎么会这样做？

Answer 1

这是你在找什么？

par(mfrow=c(1, 2))
boxplot(as.numeric(values) ~ s1,
        data=subset(data, data$s1=="AA" | data$s1=="AC"))
stripchart(as.numeric(values) ~ s1,
           data=data, add=TRUE, vertical=TRUE, pch=1, lwd=1)

boxplot(as.numeric(values) ~ s2,
        data=subset(data, data$s1=="AA" | data$s1=="AG"))
stripchart(as.numeric(values) ~ s2,
           data=data, add=TRUE, vertical=TRUE, pch=1, lwd=1)

给出类似这样的内容：