如何在没有异常值的情况下在框图上添加条带图？

Question

我制作了一个没有异常值的boxplot。

boxplot(data, names = names(files), las = 2, outline=FALSE)

现在，我试图在它上添加stripchart：

stripchart(data, method = "jitter", add = T, col = "red")

情节如下：

​

​

我理解为什么情节是这样的:因为我没有用boxplot绘制异常值。如何正确地添加stripchart (没有异常值)？

Answer 1

我已经解决了我的问题。

b <- boxplot(data, names = names(files), las = 2, outline=FALSE)
stripchart(data[!data %in% b$out], method = "jitter", add = T, col = "red",
           vertical = T)