如何在R中使用单行代码删除矩阵的不同行和列?