Início / coding / Perguntas / 79488828
Accepted
user21390049
Asked: 2025-03-06 17:24:00 +0800 CST

Calcular a média de matrizes com dimensões diferentes

  • 772

Tenho três matrizes como estas:

m1 <- matrix(c(1,2,3,4), nrow=2, ncol=2,byrow=T)
m2 <- matrix(c(1,2,3,4,5,6,7,8,9), nrow=3, ncol=3,byrow=T)
m3 <- matrix(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16), nrow=4, ncol=4,byrow=T)

Quero calcular a média de todos os valores dessas três matrizes juntos. Para que a média seja calculada de todos os 29 valores das 3 matrizes.

3 respostas

  1. Best Answer

    Quero calcular a média de todas essas três matrizes juntas. Para que a média seja calculada de todos os 29 valores das 3 matrizes.

    Colete em um liste unlist()calcule a média .

    > mean(unlist(list(m1, m2, m3)))
[1] 6.586207

    Isso pode ser ainda mais personalizado. Obtenha objetos com certos pattern, Filter()for matrixe unlist().

    > mean(unlist(Filter(is.matrix, mget(ls(pattern = 'm\\d{1}')))))
[1] 6.586207
    • 3

  2. Como, em R, as matrizes são essencialmente vetores atômicos,

    > is.atomic(m1)
[1] TRUE

    com um dimatributo ension,

    > attributes(m1)
$dim
[1] 2 2

    podemos simplesmente concatenar matrizes, onde elas perderão suas dimensões,

    > c(m1, m2, m3)
 [1]  1  3  2  4  1  4  7  2  5  8  3  6
[13]  9  1  5  9 13  2  6 10 14  3  7 11
[25] 15  4  8 12 16

    e podemos, assim, calcular sua média de uma maneira muito simples (como já demonstrado nos comentários).

    > mean(c(m1, m2, m3))
[1] 6.586207
    • 2

  3. unliste meanpor sua vez deve funcionar

    > mean(unlist(mget(ls(pattern = "^m\\d+$"))))
[1] 6.586207

    ou se você quiser jogar por diversão com crossprod+proportions

    > lst <- mget(ls(pattern = "^m\\d+"))

> crossprod(proportions(lengths(lst)), sapply(lst, mean))
         [,1]
[1,] 6.586207
    • 1

relate perguntas