搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  玩家玩牌数据样本.zip
资料下载链接地址: https://bbs.pinggu.org/a-3036770.html
本附件包括：
  • 玩家玩牌数据样本.csv
附件大小:
书籍是:谢佳标老师的《游戏数据分析R语言实现》，采用kmeans提取离群值，我照着教材一遍结果不理想。求教老师，是这种方法的问题吗。我自己复制教材的code的话，结果反而理想些。麻烦看看我写的哪错了？

  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)
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-25 06:42