R语言实战 K-Means算法笔记(航空公司客户价值分析)

2023-09-25 18 0

# 读取数据
zscoredFile <- read.csv('D:/Rdata/zscoredFile.csv')set.seed(123)  # 设置随机种子
result <- kmeans(zscoredFile, 5)  # 建立模型,聚类中心为5
round(result$centers, 3)  # 查看聚类中心
table(result$cluster)  # 统计不同类别样本的数目# 画出客户群特征分析雷达图
library(fmsb)
max <- apply(result$centers, 2, max)
min <- apply(result$centers, 2, min)
df <- data.frame(rbind(max, min, result$centers))
radarchart(df = df, seg =5, plty = c(1:5), vlcex = 1, plwd = 2)# 给雷达图加图例
L <- 1
for(i in 1:5){legend(1.3, L, legend = paste("客户群", i), lty = i, lwd = 3, col = i, bty = "n")L <- L - 0.2
}
#Legend函数前两个参数代表图例位置坐标,这里循环输出是为了防止图例覆盖在同一位置,故预先设定好第一个图例位置,再作相应调整已确定其他图例位置。

部分运行结果:

雷达图:

代码编程
赞赏

相关文章

零基础学习游戏建模多久能出师?3D建模师告诉你如何有效的学会建模
学3D建模一定要有美术功底?有则锦上添花,没有也不影响你学习
3D建模难学吗?零基础学6个月,能否找到工作?
3D建模入行难不难?零基础学习次世代,这6条建议能帮到你
游戏建模师薪资能给到多少?建模初学者如何快速入行,获取涨薪机会?
游戏建模行业门槛真有这么高?教你如何学习,找到合适自己的方式