R语言实战第二章代码