如何在没有异常值的箱线图上添加条形图？

Question

我做了boxplot没有异常值。

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

现在，我正在尝试添加stripchart：

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

Plot看起来像这样：

我理解为什么情节是这样的：因为我没有用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)