用矩陣改變散點圖中的特定點

Question

我想傳遞一個矩陣，其中x和y值對應於散點圖中的點。然後我想改變散點圖中這些特定點的顏色。我看了網上，但沒有明顯的辦法突出。

這裏是原始數據

set.seed(100) 
rand.x <-rnorm(1000,0,1) 
rand.y <-rnorm(1000,0,1) 
plot(rand.x, rand.y, col='black', cex=.5, pch=20) 

這是一個測試矩陣我想用從黑色修改情節的顏色爲紅色。

color_changer = cbind(rand.x[1:4], rand.y[1:4]) 

      [,1]  [,2] 
[1,] -0.50219235 1.0976501 
[2,] 0.13153117 1.1810365 
[3,] -0.07891709 0.5875107 
[4,] 0.88678481 1.0761726 

Answer 1

set.seed(100) 
rand.x <-rnorm(1000,0,1) 
rand.y <-rnorm(1000,0,1) 
plot(rand.x, rand.y, col='black', cex=.5, pch=20) 

color_changer = cbind(rand.x[1:4], rand.y[1:4]) 
# To add more points to the same plot use points() 
points(color_changer, col='red', cex=.5, pch=20) 

Answer 2

我想你可以使用該功能lines的，儘管它是專爲線

lines(color_changer[,1],color_changer[,2], col = "red", pch = 20, type = "p") 

在這個例子中type = "p"使您能夠點和pch = 20也點可以在其他人中突出顯示。