Это мой код:
## 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)
Я хотел бы изменить метки точек со списком имен как на графике, так и в силуэте.
Это списокname:
Id Name
1 Xeros
2 AgiaForest
3 Stavros
4 Argaka
5 PanoGialia
6 Leivadi
7 МавросКреммос
8 Пиргос
9 Лимнит
10 Маратхаса
11 АгиосНиколаос
12 Платания
13 Каргиотис
14 Атсас
15 Лагудера
16 Перистерона
17 Акаки
18 АгиосОноуфриос
19 Pedieos
20 Kotsiati
21 Nisou
22 Vyzakia
Можете ли вы помочь мне?это очень много