kmeansd提取离群值 为何和教材的不一样？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

书籍是:谢佳标老师的《游戏数据分析R语言实现》，采用kmeans提取离群值，我照着教材一遍结果不理想。求教老师，是这种方法的问题吗。我自己复制教材的code的话，结果反而理想些。麻烦看看我写的哪错了？
玩家玩牌数据样本.zip (4.5 KB) 本附件包括：

• 玩家玩牌数据样本.csv

2020-1-17 14:26:58 上传

1. w<-read.csv("玩家玩牌数据样本.csv",T)
   
2. u<-round(apply(w[,-1],2,function(x) (x-min(x))/(max(x)-min(x))),4)
   
3. u<-data.frame(u)
   
4. row.names(u)<- w$用户id
   
5. head(u)
   
6. kmeans.result<-kmeans(u,3)
   
7. centers<-kmeans.result$centers[kmeans.result$cluster,]
   
8. distance<-sqrt(rowSums((u-centers)^2))
   
9. outliers<-order(distance,decreasing = T)[1:5]
   
10. print(outliers)
    
11. rownames(u[outliers,])
    
12. plot(u$玩牌局数,u$正常牌局,pch=kmeans.result$cluster,xlab="玩牌局数",ylab="正常牌局",x=aexs=F)
    
13. plot(u$玩牌局数,u$正常牌局,pch=kmeans.result$cluster,xlab="玩牌局数",ylab="正常牌局",aexs=F)
    
14. text(u[outliers,'玩牌局数'],u[outliers,'正常牌局'],labels=rownames(u[outliers,]),cex=1.2,col="gold")
    
15. points(kmeans.result$centers[,c('玩牌局数','正常牌局')],cex=1,col=4,pch="*")
    
16. points(u[outliers,c('玩牌局数','正常牌局')],cex=1.2,col="red",pch=1)

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

谢谢分享