散点图r中箱形图的颜色离群值

Question

我在回合中捕获了usairnew数据集的Days变量的异常值，如下所示：

> outlier.colors <- (days1 %in% bout)
> outlier.colors
 [1]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[16] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
[31] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

现在，我正在尝试为散点图中的异常值着色（其中3个存在）。

> plot(usairnew$Days,main="Scatter plot for days",col=outlier.colors)

但是我现在只在散点图中得到异常值。如何获得红色的颜色，其他所有黑色的颜色。

Answer 1

我得到的解决方案如下：

outlier.colors <- (days1 %in% bout)*1

outlier.colors <- outlier.colors+1

plot(days1,main="Scatter plot for days",col=outlier.colors)