R中表格的第一行第一列如何从小到大排序

Question

在附表中，我想将变量X和变量Y的值从低到高重新排序，也就是说，变量X看起来像这样：3,5,9和10和Y:3 ,5,8 和 10.

这些是我用来生成表格的代码，称为“public”：

lim <- sample(2:10, 4)

lim1 <- sample(3:10, 4)

create_table <- function() {
  n_a <- sample(10:25,1)
  n_b <- 30-n_a
  n_c <- sample(5:18,1)
  n_d <- 20-n_c
  P3 <- rmultinom(1, n_a, prob=c(0.2, 0.4, 0.3, 0.1))
  P4 <- rmultinom(1, n_b, prob=c(0.1, 0.2, 0.4, 0.3))
  P5 <- rmultinom(1, n_a, prob=c(0.2, 0.4, 0.3, 0.1))
  P6 <- rmultinom(1, n_b, prob=c(0.1, 0.2, 0.4, 0.3))
  matrix(c(P3, P4, P5, P6), nrow = 4, ncol = 4,
          dimnames = list(c(lim[1], lim[2] ,lim[3],lim[4]),
           c(lim1[1] ,lim1[2], lim1[3], lim1[4])))
}

public <- create_table()

Answer 1

使用以下代码：

library(stringr)
do.call('[', c(list(public),lapply(dimnames(public), str_sort, numeric = TRUE)))
  6 7 8 10
3 2 4 0  0
5 7 2 8  8
6 3 2 3  3
8 1 5 6  6