R ggplot - すべての離散x値をヒストグラムの軸に表示する

Question

データフレームdfとカラムcol_name以下の図を使用して、下の図のようなヒストグラムを生成します。

myHistogramDensity <- function(df, col_name) { 
    p1 <- ggplot(df, aes_string(x=col_name)) + 
    geom_histogram(aes(y=..density..), binwidth=1, colour="black", fill="white") 
    p1 <- p1 + scale_y_continuous(labels=percent) 
    p1 <- p1 + annotation_custom(tableGrob(myMinMaxMed(df, col_name), rows = NULL), 
           xmin=10, xmax=13, ymin=0.5, ymax=0.6) 
    return (p1) 
} 

これは私に以下のようなヒストグラムを与えます。

col_nameにあるすべての離散値のラベルをx軸に表示するにはどうすればよいですか？

Answer 1

あなたの関数に以下を追加します（col_nameは整数値で構成されている場合、あなたのリクエストで「離散」と述べたので、これだけの作品は...、私はこれは動作するはずと仮定）

x_axis_labels <- min(df[,col_name]):max(df[,col_name]) 

p1 <- p1 + scale_x_continuous(labels = x_axis_labels, breaks = x_axis_labels)