r语言报错显示找不到源文件怎么办呀？

一直报错不知道怎么修改！代码，太头疼了！
到底是哪里出现了问题呀，可以帮我看一下吗

先setwd()设置工作目录，文件不在目录