以下是使用 R 语言实现 `kmeans` 和 `k-medoids`（k-中心点）算法对给定数据点进行聚类，并绘制数据分布图及簇中心点的示例代码： ```R # 定义数据点 data <- data.frame(x = c(2, 2, 8, 5, 7, 6, 1, 4), y = c(10, 5, 4, 8, 5, 4, 2, 9)) # kmeans 聚类 km_res <- kmeans(data, centers = 3) # 绘制 kmeans 聚类结果 plot(data, col = km_res$cluster) points(km_res$centers, pch = "x") # k-medoids 聚类 library(cluster) kmd_res <- pam(data, k = 3) # 绘制 k-medoids 聚类结果 plot(data, col = kmd_res$clustering) points(kmd_res$medoids, pch = "x") ``` 运行上述代码，将会分别绘制出 `kmeans` 和 `k-medoids` 算法的聚类结果图，并标记出簇中心点。 [2024-10-30 15:35:25 | AI写代码神器 | 262点数解答]