기본 리지라인 플롯

주어진 코드는 요일별로 제한 속도를 초과한 비율에 대해 리지라인 플롯을 그립니다.

코드를 수정해서 커널 너비(bandwidth)를 지정한 값으로 설정하고, 긴 꼬리를 없애기 위해 x축 범위를 조정한 뒤, 사용한 bandwidth를 독자에게 알려 주는 subtitle도 추가하세요.

이 연습은 강의의 일부입니다

R로 배우는 시각화 베스트 프랙티스

강의 보기

연습 안내

geom_density_ridges()에서 bandwidth를 3.5로 변경하세요.
x-스케일의 limits를 0에서 150으로 설정하세요.
플롯의 부제목을 'Gaussian kernel SD = 3.5'로 지정하세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

library(ggridges)

md_speeding %>% 
    mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>% 
    ggplot(aes( x = percentage_over_limit, y = day_of_week)) + 
    # Set bandwidth to 3.5
    geom_density_ridges() +
    # add limits of 0 to 150 to x-scale
    scale_x_continuous() 
    # provide subtitle with bandwidth

코드 편집 및 실행