Цвет/заполнение одной точки по-разному в диаграмме рассеяния

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 с, так что вы можете необходимо приложить к этому заявлению +1, чтобы избежать использования белого:

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