关于R语言与足球热点图的制作

原文出处：http://www.docin.com/p-1432204371.html

这是一篇论文，但在文章之中有一些东西并没有说明清楚，所以在这里写出来

• 需要下载的R语言包：Rcmdr,spatstat,maptools,RColorBrewer
• 
  

Players<-read.table(file.choose(),header=1,sep="\t")
#选择球员的坐标文件
library("maptools", lib.loc="~/R/win-library/3.4")
Field<-readShapePoly(file.choose())
#选择代表球场的 shp 格式矢量矩形
FieldSP<-as(Field,"SpatialPolygons")
#将矢量矩形转换为空间四边形
FieldOwin<-as(Field,"owin")
#将该空间四边形设置为观测窗口
library(Rcmdr)
library(spatstat)
library(RColorBrewer)
PlayerLocation<-ppp(Players$X29,Players$X35,window = FieldOwin)
#对应球员坐标
plot(FieldOwin,add=0,main="Players Position")
plot(PlayerLocation,add=1,pch="*",col="red")
#绘制跑动位置图
PlayerDensity<-density(PlayerLocation,bw="nrd0",adjust = 0.5)#密度函数
plot(PlayerDensity,main="hot map")
#绘制热点图

需要注意的一点：在对应球员坐标那一行中，$x29  $x35会有所改变，点开Players数据项，可以看到具体的数据

• 其次，球员坐标文件的制作，txt文件，横坐标和纵坐标之间用制表符分隔，一行存储一组数据
• 再就是矢量矩形的制作，由于shp格式的文件制作比较复杂，所以大家私聊我可以免费给大家分享 [e-mail]是本人邮箱

默认球场大小  105m*68m