完成 R 语言作业