为加权值创建直方图

Question

如果我有一个向量（例如v<-runif(1000)），我可以绘制它的直方图（它或多或少看起来像一条水平线，因为v是来自均匀分布的样本）

但是，假设我有一个向量及其相关权重（例如w<-seq(1,1000)除了v<-sort(runif(1000))）。例如，这是table()对更大数据集的结果。

如何绘制新的直方图？ （它应该看起来更像是本例中的y=x行。）

我想我可以通过使用table（rep）来反转hist(rep(v,w))的效果，但这个“解决方案”看起来很丑陋且资源丰富（创建一个大小为{{{{1}的中间向量1}}），它只支持整数权重。

Answer 1

library(ggplot2)
w <- seq(1,1000)
v <- sort(runif(1000))

foo <- data.frame(v, w)

ggplot(foo, aes(v, weight = w)) + geom_histogram()

Answer 2

Package plotrix有一个功能weighted.hist可以满足您的需求：

w<-seq(1,1000)
v<-sort(runif(1000))
weighted.hist(v, w)

Answer 3

weights包中的替代方法是wtd.hist()

w<-seq(1,1000) v<-sort(runif(1000)) wtd.hist(x=v,weight=w)