R使用rep()函数扩展向量