计算R中的加权几何平均数

有没有办法计算R中的加权几何平均数

我知道rogiersbart/rtoolz对Devtools软件包进行了扩展，因此您可以使用以下功能：

加权几何平均数（x，w，…）

不幸的是，我不能使用这个扩展。那么，有没有其他方法来计算R中的加权几何平均值？也许是手动的

您引用的具有该函数中使用的源代码，因此您可以轻松地在代码中重用它。为了完整性，作者将

加权.geomean

定义为：

weighted.geomean <- function(x, w, ...)
{
  return(prod(x^w, ...)^(1/sum(w)))
}

weighted.geomean您引用的函数包含该函数中使用的源代码，因此您可以轻松地在代码中重用它。为了完整性，作者将
加权.geomean
定义为：

weighted.geomean <- function(x, w, ...)
{
  return(prod(x^w, ...)^(1/sum(w)))
}

weighted.geomean在google中搜索
weighted geomean
将返回指向
desire
包的链接。我相信如果您仔细查看，您会发现更多选项：
devtools
帮助在GitHub或其他网站上安装R开发包。您首先需要安装
devtools
，然后运行
devtools:：install\u github（“rogiersbart/RTOOLZ”）
谢谢您的提示。我已经试过了，但没能成功。可能是因为我没有期望值函数，只是一个普通的data.frame，有两个变量（一个我想计算平均值，另一个我想用作权重）。
prod（x^prop.table（w））
在谷歌搜索
加权几何平均值
返回到
期望值
包的链接。我相信如果您仔细查看，您会发现更多选项：
devtools
帮助在GitHub或其他网站上安装R开发包。您首先需要安装
devtools
，然后运行
devtools:：install\u github（“rogiersbart/RTOOLZ”）
谢谢您的提示。我已经试过了，但没能成功。可能是因为我没有理想的函数，只有一个普通的data.frame和两个变量（一个我想计算平均值，另一个我想用作权重）。
prod（x^prop.table（w））
OK。非常感谢，好的。谢谢。
myvariable <- c(1,2,3,4) ##Some data to average
myweight <- c(1,1,1,3)   ##Weights
weighted.geomean(myvariable, myweight)
# [1] 2.696012