R:设置条形图中单个数据点的颜色

Question

我在条形图中设置异常值的颜色时遇到了麻烦。我试了两种方法，但都不管用。

代码如下：

x = rnorm(30)
x[20]=10

# 1
stripchart(x,main='Outlier Plot',xlab='x', pch=20, col=ifelse(x==10, 'red', 'blue'))

# 2
cols = rep('blue',length(x))
cols[which(x==10)]='red'
stripchart(x,main='Outlier Plot',xlab='x', pch=20, col=cols)

所有的颜色都是蓝色的，没有变化。

预期的图显示在minitab链接中：

https://support.minitab.com/en-us/minitab/20/help-and-how-to/statistics/basic-statistics/how-to/outlier-test/perform-the-analysis/select-the-graph/

Answer 1

points()不适用于条形图。所以使用带有'add=TRUE‘选项的stripchart()

    stripchart(x,pch=20,col='blue')
    stripchart(x[11],col='red',pch=20, add=TRUE)