在散点图中以不同方式填充/填充一个点

Question

我正在使用基础R图形来制作包含数千个数据点的散点图。其中一点具有最高的'y'值。我想填补这一点，使它看起来不同。在过去，我已经完成了以下任一项。当然，点数很少，因此我能够轻松地管理它。现在我有~3000分。有什么想法吗？

col=c{'black','black','black','red','black','black'}
pch=c(16,16,16,17,16,16)

Answer 1

选项1：确定最大值并制作颜色矢量

set.seed(47)
n <- 1e4
xx <- runif(n)
yy <- rexp(n)
colors <- rep("black", n)
colors[which.max(yy)] <- "red"
plot(xx, yy, col = colors, pch = 16)

选项2：分别绘制最大值。这可能更容易，特别是如果你想调整更多的特征而不仅仅是颜色。

plot(xx, yy, pch = 16)
points(xx[which.max(yy)], yy[which.max(yy)], col = "red", pch = 17, cex = 2)

Answer 2

我认为这样做可能会快一点：

plot(xx, yy, col=(yy==max(yy)), pch=19)

这将创建TRUE和FALSE值的向量，这些值将被强制转换为1和0 s，因此您可能必须附加{{1为了避免使用white：

+1