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


geom_histogram()을 geom_density()로 바꾸면 됩니다sample_n(md_speeding, 100) %>%
ggplot(aes(x = percentage_over_limit)) +
# geom_histogram()을 교체
geom_density(
# 곡선을 색으로 채움
fill = 'steelblue',
# 커널의 표준편차
bw = 8
)



geom_rug()으로 KDE 아래에 모든 데이터를 선으로 표시합니다
p <-sample_n(md_speeding, 100) %>% ggplot(aes(x = percentage_over_limit)) + geom_density( fill = 'steelblue', # 곡선을 색으로 채움 bw = 8 # 커널의 표준편차 )p + geom_rug(alpha = 0.4)

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