这是我的代码：
## 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维扎基亚
能帮我吗？很多