Р: Как мне отсортировать опорную таблицу по одному из двух процентов? - PullRequest
Новая
       44

Р: Как мне отсортировать опорную таблицу по одному из двух процентов?

1 голос
/ 12 июля 2020

Как отсортировать это по меньшему показанному проценту? 

A1 <- round(prop.table(Contigency_Table,margin=2),2)
A1
            1    2    3    4    5    6    7    8    9   10   11   12   13
  -1     0.90 0.30 0.00 0.25 0.80 0.60 0.30 1.00 0.65 0.10 0.50 0.15 0.75
  1      0.10 0.70 1.00 0.75 0.20 0.40 0.70 0.00 0.35 0.90 0.50 0.85 0.25

13 пар должны совпадать. Каждый из них добавляет к 100% (1,0).

Я много чего пробовал.

ОБНОВЛЕНИЕ 

> dput(A1)
structure(c(0.90, 0.10, 0.30, 0.70, 0, 1, 0.25, 0.75, 0.80, 0.20, 0.60, 0.40, 0.30, 0.70, 1, 0, 0.65, 0.35, 0.10, 0.90, 0.50, 0.50, 0.15, 0.85, 0.75, 0.25), class = "table", .Dim = c(2L, 13L), .Dimnames = structure(list(c("-1", "1"), c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13")), .Names = c("", "")))

1 Ответ

0 голосов
/ 12 июля 2020

Если бы мы хотели order на основе 2-й строки, подмножество 2-й строки (A1[2,] путем указания индекса строки на i), order вектора и использование его в качестве индекса столбца для изменения порядка в j

A2 <- A1[,order(A1[2,])]
A2
#       8    1    5   13    9    6   11    2    7    4   12   10    3
#  -1 1.00 0.90 0.80 0.75 0.65 0.60 0.50 0.30 0.30 0.25 0.15 0.10 0.00
#  1  0.00 0.10 0.20 0.25 0.35 0.40 0.50 0.70 0.70 0.75 0.85 0.90 1.00


colSums(A2)
# 8  1  5 13  9  6 11  2  7  4 12 10  3 
# 1  1  1  1  1  1  1  1  1  1  1  1  1
...