R 箱线图旁边的点图

我试图找出如何在一个图形中绘制箱线图和a

从以下几点开始：

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)

---

data这就是你要找的吗

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)

给出如下内容：
查看
ggplot2
包。它有很好的文档和示例：太完美了！谢谢