如何用Base R的管道操作反转矩阵/数据框的行顺序？

先确认你的原始矩阵定义及输出：

m <- matrix(1:6, ncol=2) 

执行后输出：

m
     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    3    6

你尝试的m |> m[nrow(m):1, ]无法运行，核心原因是管道|>需要将左侧对象作为右侧函数调用的第一个参数，而直接写索引表达式不符合管道的语法逻辑。下面提供两种Base R的可行方案：

方案1：直接调用[函数（最简洁） #

在Base R中，矩阵索引的[本身是一个可调用的函数，我们可以通过管道将矩阵传递给它，同时指定行反转的索引：

m |> `[`(nrow(.):1, )

也可以通过参数名让代码更清晰：

m |> `[`(i = nrow(.):1, j = )

运行后得到行反转的结果：

[,1] [,2]
[1,]    3    6
[2,]    2    5
[3,]    1    4

方案2：自定义反转函数（可读性更强） #

如果觉得直接用[函数不够直观，可以封装一个简单的自定义函数，再通过管道调用：

reverse_matrix_rows <- function(mat) {
  mat[nrow(mat):1, ]
}

m |> reverse_matrix_rows()

这个方案更适合需要重复使用行反转操作的场景，代码可读性更高。

补充：关于管道语法的说明 #

管道|>的本质是把左侧的对象（这里是m）作为右侧函数的第一个输入参数。你之前的写法m |> m[nrow(m):1, ]试图把m传递给一个已经引用了m的索引表达式，这不是合法的函数调用，因此会报错。而使用m |> [(nrow(.):1, )时，[作为函数，m会被自动填充到它的第一个参数位置（即待索引的对象），再配合我们指定的行索引参数，就能正确完成反转操作。

内容的提问来源于stack exchange，提问作者mr.T