如何在R中创建具有相等行的矩阵?