r语言添加一列并赋值