使用apply()函数和sort()函数实现
代码示例:
mat <- matrix(c(4, 2, 1, 3, 5, 7, 6, 8, 10, 9, 11, 12), ncol = 3)
sort_ifelse <- function(x) { ifelse(x[1] > x[2], c(x[2], x[1]), x) }
apply(mat, 1, sort_ifelse)
[,1] [,2] [,3]
[1,] 2 4 1 [2,] 5 7 3 [3,] 6 8 10 [4,] 9 11 12
解释: 在这个例子中,我们定义了一个 sort_ifelse 函数来逐行判断和排序。然后,我们使用 apply 函数来对矩阵进行遍历并应用 sort_ifelse 函数。最终,我们得到了按行排序的 ifelse 语句的结果。
下一篇:按行排序日期