ggplotの棒グラフにヒストグラムをオーバーレイする方法は？

Question

私は、棒グラフを作成したい二分変数の変数を持っています。

outcome <- as.factor(c("Yes", "Yes", "Yes", "No", "No", "No", "Yes", "Yes", "No", "No", "Yes", "No", "No", "Yes", "Yes", "Yes", "No", "No", "Yes", "No", "No", "Yes", "Yes", "No")) 

そして私は連続変数を持っている（最小= 0、最大= 1）私は

prediction <- c(.648, .628, .774, .292, .264, .598, .720, .876, .520, .676, .736, .244, .326, .594, .492, .168, .200, .286, .804, .086, .382, .878, .450,.478) 

とのヒストグラムを作成することを、私は上の2つのグラフをオーバーレイする方法を把握しようとしています同じプロット。これは私がこれまで持っているものです。

df <- data.frame(outcome, prediction)  

ggplot(data=df) + 
     geom_bar(aes(outcome), alpha = .2, color = "red") + 
     scale_y_continuous() + 
     geom_histogram(aes(prediction), alpha = .2, color = "blue", bins = 20) 

それは近いですが、棒グラフが左に移動する必要があります。私はバー "No"を0から.5に、 "Yes"を.5から1にします。

Answer 1

これは棒グラフを左に移動します。あなたはまだラベルを修正する必要があります。これがあなたの望むものなら100％ではありませんが、それはスタートです。

ggplot(data=df) + 
    geom_bar(aes(outcome), alpha = .2, color = "red", width = 1, position = position_nudge(x=-0.5)) + 
    scale_y_continuous() + 
    geom_histogram(aes(prediction), alpha = .2, color = "blue", bins = 20)