无法更改标签的轮廓和轮廓

Question

这是我的代码：

## Set the working directory
setwd("C:/Users/Stefano Caligiuri/Desktop/Tesi/Dati_GIS_2.0")


## loading necessary libraries
library(cluster)


# import data
percentage <- read.csv ("GME/Percentage.csv",sep=",", head=TRUE) 

#calculate dissimilarity matrix
dat <- percentage[,-(1:2)]
dat.daisy <-daisy(dat, metric=c ("euclidean"),stand=FALSE)
dat.daisy2 = dat.daisy^2


pam.result <- pam(dat.daisy,diss=TRUE,3, medoids = c(9,16,22), metric 
="euclidean")

#plot cluster analysis result
layout(matrix(c(1,2),1,2))
clusplot (dat.daisy,pam.result$clustering, diss=TRUE, color=TRUE, 
shade=TRUE, main='2D representation of the Cluster solution', labels=2, 
lines=0)
sk2 = silhouette (pam.result$clustering,dat.daisy2, main='Silhouette Plot')
plot(sk2)

我想用绘图和轮廓中的名称列表更改点标签。

这是名称列表：

ID名称
1个Xeros
2 AgiaForest
3斯塔夫罗斯
4 Argaka
5 PanoGialia
6莱瓦迪
7位MavrosKremmos
8皮尔戈斯
9淋巴炎
10 Marathasa
11 AgiosNikolaos
12普拉塔尼亚
13卡焦蒂斯
14阿萨斯
15 Lagoudera
16佩里斯特罗纳
17赤木
18 AgiosOnoufrios
19 Pedieos
20 Kotsiati
21尼素
22维扎基亚

能帮我吗？很多