根据不同颜色十六进制值用R语言绘制不同颜色的K-均值簇可视化图形2

library("factoextra")
set.seed(123)
res.km <- kmeans(scale(df[, -5]), 3, nstart = 25)
res.km$cluster
fviz_cluster(res.km, data = df[, -5],
             palette = c("#FDF5E6","#808000","#6B8E23"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#FFA500","#FF4500","#DA70D6"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#EEE8AA","#98FB98","#AFEEEE"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#DB7093","#FFEFD5","#FFDAB9"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#CD853F","#FFC0CB","#DDA0DD"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#B0E0E6","#800080","#FF0000"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#BC8F8F","#4169E1","#8B4513"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#FA8072","#F4A460","#2E8B57"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#87CEEB","#A0522D","#C0C0C0"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#6A5ACD","#708090","#00FF7F"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#4682B4","#D2B48C","#008080"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#D8BFD8","#FF6347","#40E0D0"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#EE82EE","#F5DEB3","#F5F5F5"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#9ACD32","#FFFF00","#F5F5F5"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

参考文献：

https://blog.csdn.net/m0_38127487/article/details/125513009

百度百科：中英文颜色对照表

开发工具：RStudio与微信截屏工具