更改Factoextra上的形状

install.packages("factoextra")
install.packages("ggplot2")

library(factoextra)
library(ggplot2)

data(iris)

# 进行 k-means 聚类
set.seed(123)
kmeans_result <- kmeans(iris[, -5], centers = 3, nstart = 25)

# 可视化聚类结果
fviz_cluster(kmeans_result, data = iris[, -5])

# 自定义聚类可视化
fviz_cluster(kmeans_result, data = iris[, -5],
             geom = "point", # 使用点
             shape = 21,     # 更改点的形状
             fill = "black", # 填充颜色
             pointsize = 3,  # 点的大小
             palette = c("#00AFBB", "#E7B800", "#FC4E07"), # 自定义调色板
             ggtheme = theme_minimal() # 使用简约主题
)

# 进一步自定义
fviz_cluster(kmeans_result, data = iris[, -5],
             geom = "point",
             shape = 21,
             fill = "black",
             pointsize = 3,
             palette = c("#00AFBB", "#E7B800", "#FC4E07"),
             ggtheme = theme_minimal()) +
  labs(title = "K-means Clustering of Iris Dataset",
       x = "Principal Component 1",
       y = "Principal Component 2") +
  xlim(-5, 5) + ylim(-5, 5)