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) 

난에있는 두 개의 차트를 오버레이하는 방법을 알아 내려고 노력하고 있어요와 히스토그램을 생성 할 것을 같은 줄거리.

이

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에서 0.5로, "Yes"는 0.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)