如何在R中创建虚拟变量?