Создайте гистограмму для взвешенных значений

Если у меня есть вектор (например, v<-runif(1000)), я могу построить его гистограмму (которая будет выглядеть более или менее как горизонтальная линия, потому что v — это выборка из равномерного распределения).

Однако предположим, что у меня есть вектор и связанные с ним веса (например, w<-seq(1,1000) в дополнение к v<-sort(runif(1000))). Например, это результат table() на гораздо большем наборе данных.

Как построить новую гистограмму? (в этом примере она должна быть более или менее похожа на строку y=x).

Я думаю, что я мог бы обратить вспять эффекты table, используя rep (hist(rep(v,w))), но это "решение" кажется уродливым и ресурсоемким (создает промежуточный вектор размера sum(w)), и оно поддерживает только целые веса.