抽样调查 作业二 R语言