R Cluster

代码

data
r1 <- c("index1", "index2", "index3", "index4")
r2 <- c(1, 7, 2, 4)
data <- cbind(r1, r2)
row.names(data) <- data[, 1]
data <- data[, -1]

#dist
distance <- dist(data, method = "euclidean")

#hclust
aggA <- hclust(distance, method = "complete")
plot(aggA, hang=-1)

结果