## plotting votes.diss(dissimilarity) in a bivariate plot and
## partitioning into 2 clusters
data(votes.repub)
votes.diss <- daisy(votes.repub)
clusplot(votes.diss, pam(votes.diss, 2, diss = TRUE)$clustering,
diss = TRUE, shade = TRUE, plotchar = TRUE, labels = 1)
## plotting iris (dataframe) in a 2-dimensional plot and partitioning
## into 3 clusters.
data(iris3)
iris.x <- rbind(iris3[,,1], iris3[,,2], iris3[,,3])
clusplot(iris.x, pam(iris.x, 3)$clustering, diss = FALSE,
plotchar = TRUE, color = TRUE)
Run the code above in your browser using DataLab