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',
# kernel 的標準差
bw = 8
)



用 geom_rug() 在 KDE 下方用線標出所有資料
p <-sample_n(md_speeding, 100) %>% ggplot(aes(x = percentage_over_limit)) + geom_density( fill = 'steelblue', # 用顏色填滿曲線 bw = 8 # kernel 的標準差 )p + geom_rug(alpha = 0.4)

R 視覺化最佳實務