r - 当有多个标签时，为 geom_jitter 设置特定颜色

Question

在绘制一些箱线图时，我在尝试设置抖动点的颜色时遇到了一些麻烦。

这个想法是我想比较两个箱线图中的异常值，看看它们是否以某种方式相互关联。为此，我创建了一个数据框比较，其中包含比较所需的所有值。我创建了一个新的标签列，这将帮助我识别其中一个箱线图感兴趣的异常值。所有低于 1.5 的值都是 CD3 异常值，低于它们是 CD3 正常值。

comparative[,"label"] <- NA
comparative[comparative$AllDataMedian > 1.5, "label"] <- "CD3Outliers"

comparative[comparative$AllDataMedian <= 1.5, "label"] <- "CD3Normal"

Mcomparative <- melt(comparative)

c <- ggplot(Mcomparative, aes(variable, value))

c + geom_boxplot(outlier.shape = NA) + geom_jitter(shape=16, position=position_jitter(0.1), aes(colour=label))

有了这个我得到

我对此很满意，但是我想更改这些默认颜色。我希望有一个人可以帮助我。

谢谢。