頻度ヒストグラムの各列をRの点で塗りつぶす方法は？

Question

周波数ヒストグラムの各矩形（列/バー）をRでポイントを使って垂直にどのように埋めることができるのでしょうか？

以下のRコードは例です。明確にするために、各ヒストグラム列内のこれらの点の数は、その列の頻度と等しい必要がありますか？ポイントを格納するデータフレームを作成

h = hist(x = rnorm(1e3), axes = F, labels = T) 

axis(2, at = as.integer(seq(0, max(h$counts), len = 5)), las = 1) 

axis(1, at = seq(min(h$breaks), max(h$breaks), len = length(h$breaks))) 

Answer 1

クイック溶液座標：

set.seed(555) 
x = rnorm(1e3) 
h = hist(x = x, axes = F, labels = T) 
point_df = data.frame(
    x = unlist(sapply(1:length(h$mids), function(i) rep(h$mids[i], each = h$counts[i]))), 
    y = unlist(sapply(h$counts, function(c) 1:c)) 
) 
points(point_df$x, point_df$y) 

を