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

艾利斯兰、古董白、浅绿色

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("#F0F8FF","#FAEBD7","#00FFFF"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#7FFFD4","#F5F5DC","#FFE4C4"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#000000","#FFEBCD","#0000FF"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#8A2BE2","#A52A2A","#DEB887"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#5F9EA0","#7FFF00","#D2691E"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#FF7F50","#6495ED","#FFF8DC"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#DC143C","#00FFFF","#00008B"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#008B8B","#B8860B","#A9A9A9"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#006400","#BDB76B","#8B008B"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#556B2F","#FF8C00","#9932CC"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#8B0000","#E9967A","#8FBC8F"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#483D8B","#2F4F4F","#00CED1"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#9400D3","#FF1493","#00BFFF"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#696969","#1E90FF","#B22222"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#FFFAF0","#228B22","#FF00FF"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

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

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

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

fviz_cluster(res.km, data = df[, -5],
             palette = c("#CD5C5C","#4B0082","#F0E68C"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#E6E6FA","#FFF0F5","#7CFC00"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

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

fviz_cluster(res.km, data = df[, -5],
             palette = c("#E0FFFF","#FAFAD2","#90EE90"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

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

fviz_cluster(res.km, data = df[, -5],
             palette = c("#20B2AA","#87CEFA","#778899"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#B0C4DE","#FFFFE0","#00FF00"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#32CD32","#FAF0E6","#FF00FF"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#800000","#66CDAA","#0000CD"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#BA55D3","#9370DB","#3CB371"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

fviz_cluster(res.km, data = df[, -5],
             palette = c("#7B68EE","#00FA9A","#48D1CC"), 
             geom = "point",
             ellipse.type = "convex", 
             ggtheme = theme_bw()
)

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

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

参考文献：

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

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

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