原文出处：http://www.docin.com/p-1432204371.html
这是一篇论文，但在文章之中有一些东西并没有说明清楚，所以在这里写出来
需要下载的R语言包：Rcmdr,spatstat,maptools,RColorBrewerPlayers<-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格式的文件制作比较复杂，所以大家私聊我可以免费给大家分享 857297059@qq.com是本人邮箱
默认球场大小 105m*68m