R：设置带状图中单个数据点的颜色

问题描述

我在设置带状图中异常值的颜色时遇到问题。我尝试了两种方法，但都不起作用。

代码如下：

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,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/

解决方法

points() 不适用于带状图。所以使用带选项'add=TRUE'

的stripchart()

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