ヒストグラムを作成しようとすると予期しないggplot出力が発生するR

Question

ヒストグラムを作成しようとしました。この例では、「値」のヒストグラムに「量」を重み付けしたいとします。以前の投稿を検索しましたが、これは私の問題に対処していないようです。私は、ヒストグラムの異なる加重結果を期待

1）：

は私が解決しようとしている2つの問題を抱えています。私は "2"の値がバーを16％に、 "3"の値を24％に、 "4"の値を18％に、 "5"の値に42％のバーがあります。

2）ヒストグラムに「0」の値が100％の黒いバーが表示される理由はわかりません。

申し訳ありませんが、残念ながら、私はSOに初めているので、出力の画像を投稿できません。

私は大いに助けてくれてありがとう！ここで

が再現可能な例である：

library(ggplot2) 

amount <- c(rep(0.02, 50), rep(0.03, 50)) 
value <- c(rep(2, 20), rep(3, 30), rep(4, 15), rep(5, 35)) 
my_df <- data.frame(amount, value) 

xvar <- my_df$value 
weight <- my_df$amount 

histogram <- ggplot(my_df, aes(xvar)) 
histogram <- histogram + geom_histogram(aes(weight)) 
histogram <- histogram + geom_histogram(binwidth=0.25, 
         colour="black", fill="white") 
plot(histogram) 

Answer 1

[OK]を、私は私が間違って何をやっていた考え出しました。おかげで再びジョラン、あなたはまだ間違いなく私を助けた。私はy軸上のユニットによって投げ飛ばされたと思って、私は期待通りの結果を得るために、pctを以下のように追加する必要がありました。

私は体重がここにすべての「2」の値の代わりに「2」（すなわち、0.02 * 20 = 0.4の代わりに、総量の割合を量を合計することを認識していませんでした0.02 * 20/2.5 = 16％）。グラフバーは比較的同じように見えますが、単位はまったく異なります。

私はコードをもっとコンパクトに書いていますが、それをより良くするためのヒントも大好きです。ここで

は私が望んで私を得た私の改訂コードです。また、作品以下のよう

library(ggplot2) 
library(dplyr) 

amount <- c(rep(0.02, 50), rep(0.03, 50)) 
value <- c(rep(2, 20), rep(3, 30), rep(4, 15), rep(5, 35)) 

my_df <- data.frame(amount, value) 
my_df <- my_df %>% 
    mutate(pct = amount/sum(amount)) 

histogram <- ggplot(my_df,aes(x = value, weight = pct)) + 
geom_histogram(binwidth=0.25, colour="black", fill="white") 

plot(histogram) 

は最後に、私は体重の配置に気づき、私があればそこに知らないので、私は、これは少し混乱発見しました

histogram <- ggplot(my_df,aes(x = value)) + 
geom_histogram(aes(weight = pct), binwidth=0.25, colour="black", fill="white")