R语言实验作业第六次作业