# 回遊データをラインポリゴン化 kaiyuu_line_polygons <- postings_with_kaiyuu_id %>% sf::st_as_sf( coords = c('longitude', 'latitude') ) %>% group_by( # group_by + summariseをすると個々の投稿座標がMULTIPOINTでまとまる kaiyuu_id ) %>% summarise( dummy = n(), do_union = F # 元のデータの順番でMULTIPOINTが作られる ) %>% sf::st_cast( 'LINESTRING' ) %>% sf::st_set_crs(4326) %>% # マイマップはWGS84なので select( !dummy # 不要な変数の削除 )