Jak obliczyć średnią ważoną w R?

Question

Powiel możliwe:
Calculating weighted mean and standard deviation

Jak obliczyć średnią ważoną w R?

Na przykład, posiada 4 elementy, z których jeden element jest wielkości (lub: długość, szerokość, itd) 10 i 3 pozycje są wielkości 2.

> z = data.frame(count=c(1,3), size=c(10,2)) 
> z 
    count size 
1  1 10 
2  3 2 

Średnia ważona jest (10 * 1 + 2 * 3)/4 = 4.

Answer 1

Zastosowanie weighted.mean:

> weighted.mean(z$size, z$count) 
[1] 4 

Answer 2

Wydaje się, że już wiem, jak obliczyć to wystarczy sugerować w dobrym kierunku, aby go wdrożyć. Ponieważ R jest wektorowy, to jest całkiem prosta:

with(z, sum(count*size)/sum(count)) 

with nieco tylko oszczędza na pisanie i odpowiada sum(z$count*z$size)/sum(z$count)

lub użyć wbudowanej funkcji weighted.mean() jak również podkreślił. Używanie własnej funkcji może okazać się szybsze, ale nie spowoduje tego samego sprawdzania błędów, co funkcja wbudowana.

builtin <- function() with(z, weighted.mean(count, size)) 
rollyourown <- function() with(z, sum(count*size)/sum(count)) 

require(rbenchmark) 
    benchmark(builtin(), rollyourown(), 
      replications = 1000000, 
      columns = c("test", "elapsed", "relative"), 
      order = "relative") 
#----- 
      test elapsed relative 
2 rollyourown() 13.26 1.000000 
1  builtin() 22.84 1.722474