비교 시나리오에서 하나의 밀도 플롯을 일정한 (모든면에서) 유지함으로써 ggplot2에서 여러 밀도 플롯을 만들 수 있습니까?

Question

나는 다른 종류의 차량 (예를 들어 자동차, 오토바이, 트럭, 버스 등)과 연관된 속도 데이터를 가지고 있으며 차의 속도와 비교할 때 이러한 다양한 유형의 차량의 속도가 어떻게 다른지 보여주고 싶습니다. 예를 들어

: 상기 언급 된 경우에, 3 개면은

감사 미리 밀도 (비교 예 (자전거, 자동차 및 트럭, 버스 및 자동차 VS 자동차)를 나타내는 생성한다 .. !!!

Answer 1

주석에서 언급했듯이 패싯의 모든 구성원에 대해 동일한 밀도 플롯을 표시하는 추가 dataframe을 작성해야합니다. 예를 들어 diamonds 데이터 세트를 예로 들어 보겠습니다. 여기서는 "Fair" 인하를 기본으로 사용합니다.

# We use expand.grid to crate new data with same values for all levels 
fair_data <- expand.grid(carat = diamonds$carat[diamonds$cut == "Fair"], 
         cut = levels(diamonds$cut)[-1]) # We omit "Fair" 

# Plug into ggplot 
ggplot(subset(diamonds, cut != "Fair"), 
     aes(carat, colour = cut)) + 
    geom_density() + 
    geom_density(data = fair_data, colour = "black") + 
    facet_wrap(~cut)