R中绘制聚类的离散图

R中利用cluster简单的绘制常见聚类离散图

# 引入cluster库(clara、fanny)
library(cluster)
 
# 聚类散点图绘制
# 引入factoextra,cluster库(fviz_cluster)
library(ggplot2)
library(factoextra)
 
# 确定簇心个数
cluster_num <- 3
# 读取数据
data <- read.csv("data.csv",header = T)
 
# 调用kmeans算法
km <- kmeans(data,cluster_num)
 
# 调用Clara算法
cl <- clara(data,cluster_num)
 
# 调用模糊C-Means聚类算法
fan <- fanny(data,cluster_num) 
 
# 绘图
#fviz_cluster(km, data, ellipse.type = "norm")
 
fviz_cluster(fan, data)