Построить матрицу из базы данных с расчетами по r - PullRequest
Новая
       22

Построить матрицу из базы данных с расчетами по r

0 голосов
/ 12 сентября 2018

Я пытаюсь решить следующую проблему на R.

У меня есть data.frame, который выглядит так (очевидно, намного больше): 

Column_1     Column_2     Column_3
(0-1]        (15-25]      58
(2-3]        (35-45]      25
(4-5]        (35-45]      50
(0-1]        (15-25]      5
(2-3]        (25-35]      10
(1-2]        (25-35]      15
(1-2]        (15-25]      12
(3-4]        (25-35]      10
(4-5]        (35-45]      9

Цель состоит в том, чтобы построить матрицу из этого data.frame, имеющего Column_1 в качестве имен столбцов , Column_2 в качестве имен строк и внутри матрицы имеют среднее значение каждое значение в Column_3 связано с соответствующим значением в Column_1 и Column_2.

Полученная матрица должна выглядеть примерно так: 

      (15-25]    (25-35]     (35-45]
(0-1]   31.5      0             0
(1-2]   12        15            0
(2-3]   0         10            25     
(3-4]   0         10            0
(4-5]   0         0             29.5

Как мне это сделать?

Ответы [ 2 ]

0 голосов
/ 12 сентября 2018

Мы можем использовать dcast от reshape2.Вызов ваших данных dd: 

wide = reshape2::dcast(data = dd, Column_1 ~ Column_2, fun.aggregate = mean, fill = 0)
wide
#   Column_1 (15-25] (25-35] (35-45]
# 1    (0-1]    31.5       0     0.0
# 2    (1-2]    12.0      15     0.0
# 3    (2-3]     0.0      10    25.0
# 4    (3-4]     0.0      10     0.0
# 5    (4-5]     0.0       0    29.5

Это фрейм данных, мы, конечно, можем преобразовать в матрицу: 

mat = as.matrix(wide[, -1])
row.names(mat) = wide[, 1]
mat
#       (15-25] (25-35] (35-45]
# (0-1]    31.5       0     0.0
# (1-2]    12.0      15     0.0
# (2-3]     0.0      10    25.0
# (3-4]     0.0      10     0.0
# (4-5]     0.0       0    29.5
0 голосов
/ 12 сентября 2018

xtabs() и aggregate() делают работу: 

as.data.frame.matrix(xtabs(Column_3 ~ Column_1 + Column_2,
                           aggregate(Column_3 ~ Column_1 + Column_2, df, mean)))
# output
      (15-25] (25-35] (35-45]
(0-1]    31.5       0     0.0
(1-2]    12.0      15     0.0
(2-3]     0.0      10    25.0
(3-4]     0.0      10     0.0
(4-5]     0.0       0    29.5

# data
df <- structure(list(Column_1 = c("(0-1]", "(2-3]", "(4-5]", "(0-1]", 
"(2-3]", "(1-2]", "(1-2]", "(3-4]", "(4-5]"), Column_2 = c("(15-25]", 
"(35-45]", "(35-45]", "(15-25]", "(25-35]", "(25-35]", "(15-25]", 
"(25-35]", "(35-45]"), Column_3 = c(58L, 25L, 50L, 5L, 10L, 15L, 
12L, 10L, 9L)), .Names = c("Column_1", "Column_2", "Column_3"
), class = "data.frame", row.names = c(NA, -9L))
...