Crie um histograma para valores ponderados

Se eu tiver um vetor (por exemplo,v<-runif(1000)), Eu posso traçar o seu histograma (que vai parecer, mais ou menos, como uma linha horizontal porquev é uma amostra da distribuição uniforme).

No entanto, suponha que eu tenha um vetor e seus pesos associados (por exemplo,w<-seq(1,1000) além dev<-sort(runif(1000))). Por exemplo, este é o resultado detable() em um conjunto de dados muito maior.

Como faço para traçar o novo histograma? (deve parecer menos com oy=x linha neste exemplo).

Eu acho que poderia reverter os efeitos detable usandorep (hist(rep(v,w))) mas esta "solução" parece feia e pesada em recursos (cria um vetor intermediário de tamanhosum(w)), e suporta apenas pesos inteiros.