R语言如何设置虚拟变量