使用矩阵

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