inst/examples/kmeans-cluster.R

In MSG: Data and Functions for the Book Modern Statistical Graphics

# 不存在聚类的 K-Means 聚类散点图和 alpha 凸包
set.seed(320)
par(mfrow = c(1, 2))
x = matrix(rnorm(200), ncol = 2)
plot(x,
     pch = c(4, 19)[kmeans(x, centers = 2)$cluster],
     xlab = expression(x[1]), ylab = expression(x[2])
)
library(alphahull)
plot(ahull(x, alpha = 0.4), xlab = expression(x[1]), ylab = expression(x[2]))