用矩阵改变散点图中的特定点

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也点可以在其他人中突出显示。