R：freq（）関数をミラーリングするggplotヒストグラムを作成する

Question

descrパッケージからfreq関数をミラーリングするために、ggplotを使って棒グラフ（またはヒストグラム）を作成しようとしています。 x-aisティックを各値の中心にして）、しかし、私はこれを動作させるためにいくつかの問題を抱えています。ここで

は、私が作成しようとしている（しかし、私はその素晴らしいグラフィックを使用できるようにggplotを使用して）いです：

library(ggplot2) 
library(descr) 

variable <- c(0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 7) 
df <- data.frame(variable) 
freq(df$variable) 

そして、ここに私がggplotで同じことをやろうとしている（と失敗）されています

histo.variable <- ggplot(df, aes(x = variable)) + # create histogram 
    geom_bar(stat = "bin") + 
    xlab("Variable Value") + 
    ylab("Count") + 
    scale_x_continuous(breaks = scales::pretty_breaks(n = 10)) 
histo.variable 

ご覧のとおり、バーは目盛りの中央に配置されていません。 （さらに、バーの間の小さなハーフラインを取り除くことは素晴らしいことです）。

お手伝いいただける方に感謝します！たぶん、このような

Answer 1

：本当にうれしいです

ggplot(df, aes(x = variable)) + 
    geom_histogram(aes(y = ..density..),  
       binwidth = 1, 
       colour = "blue", fill = "lightblue")