目的是创建一个数组/矩阵，对 3 行数字（向量）进行排序，并将数字计数到数组中。
向量（x、y、z）
x <- 1 4 5 6
y <- 2 3 3 4 4 5 5 6 6 7 7 7 9
z <- 2 2 2 3 3 3 3 4 4 4 4 4 5 5 5 5 5 6 7 8 9 9
矩阵/数组（理想输出）
[,1] [,2] [,3]
[1,] 1 0 0
[2,] 0 1 3
[3,] 0 2 4
[4,] 1 2 5
[5,] 1 2 5
[6,] 1 2 1
[7,] 0 3 …目的是消除向量中的异常值。x = 数据集::岛屿 ($area)
x = 12 13 13 13 14 14 15 15 16 16 16 19 21 23 25 26 29 29 30 30
32 33 36 40 42 43 43 44 49 58 73 82 82 84 89 183 184 227 280 306
840 2968 3745 5500 6795 9390 11506 16988
到目前为止通过使用
x_rm_out <- x[!x%in% boxplot.stats
(x, coef = .05, do.conf = TRUE, do.out = TRUE)$out]
结果
[1] 12 13 13 13 14 14 15 15 16 …