南部へ

これまでにしっかり基盤を作ってきたので、たった数行のコードで全米の大学を地図に描けるようになりました。コンソールで次を実行し、マップを操作して、米国本土（＝本土の州）の中で最も南に位置する公立大学がどれかを特定してください。

pal <- colorFactor(palette = c("red", "blue", "#9b4a11"), 
                   levels = c("Public", "Private", "For-Profit"))

m2 %>% 
    addCircleMarkers(radius = 2, label = ~name, color = ~pal(sector_label))