Rstudio中带有附加点的散点图

Question

我只是Rstudio的初学者，并且从事一些散点图的研究。我有一个包含三个变量和40个样本的数据库。因此，对于这些变量使用散点矩阵图，我想将样本均值和另一个点添加到我的图中。在我的绘图中，我想识别这些额外的点，这些点具有与样本点不同的特征，例如颜色，形状。我还想添加一个图例以标识每组点。这是我的代码，取得了一些成功，但是我仍然无法为每个功能添加图例。有什么建议吗？ 这是我的代码，也是我的结果。

database <- read.csv('HRBPData.csv')
database.means <- apply(database [,1:3], 2, mean)
point <- c(70, 80, 120)     
# Here I'm adding the mean and extra point into the database and naming
# as "database.pluspoints"
database.pluspoints <- rbind(database, database.means, point )

pairs(database.pluspoints, col=rep(1:3, c(40, 1, 1)), pch=rep(c(1, 16), c(40, 2)))

这是我的结果...