附件是我自己写的R语言的程序代码，特此分享个大家，由于文件上传R语言格式不支持，就上传txt格式，大家可以下载下来，把数据文件替换为自己的文件即可。