R 为加权值创建直方图

R 为加权值创建直方图,r,plot,histogram,weighted-graph,R,Plot,Histogram,Weighted Graph,如果我有一个向量(例如,v有一个函数weighted.hist,它做你想要的: w库(ggplot2) wweights包中的另一种选择是wtd.hist() w你可以在ggplot中添加weight到美学贴图中,然后使用geom_直方图@JakeBurkhead我不知道!你可以添加它作为答案吗?你也可以plot表格。不过结果不是一个直方图。仅供参考,链接已失效。这里是关于p的信息ackage@Adam\u G谢谢!更新了答案中的链接。该函数存在错误:当我尝试向其添加曲线时,它没有在正确的位置绘

如果我有一个向量(例如,
v有一个函数
weighted.hist
,它做你想要的:

w
库(ggplot2)

wweights
包中的另一种选择是
wtd.hist()


w你可以在
ggplot
中添加
weight
到美学贴图中,然后使用
geom_直方图
@JakeBurkhead我不知道!你可以添加它作为答案吗?你也可以
plot
表格
。不过结果不是一个直方图。仅供参考,链接已失效。这里是关于p的信息ackage@Adam\u G谢谢!更新了答案中的链接。该函数存在错误:当我尝试向其添加曲线时,它没有在正确的位置绘制它……请尝试例如`weighted.hist(rnorm(T),rep(1,T)/T,col=“wheat”);curve(dnorm(x),add=TRUE)`为什么线条会在x轴下方?或者更确切地说,你如何阻止线条在x轴下方?@DavidPell这些都是x轴上的记号。这可能有助于消除这些记号:这太棒了;加权直方图很容易制作——而且很有效!但是“权重”并没有作为几何直方图的美学在文档(ggplot 3.1.1)中列出(…)。你是怎么知道的?它被用在了的例子中。不知道5年多前我是怎么知道的
library(ggplot2)
w <- seq(1,1000)
v <- sort(runif(1000))

foo <- data.frame(v, w)

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