住所を都道府県と市区町村で切り分けたいとき

• zipangu::separate_address を使うと便利
• コードの例

fread('hogehoge.csv', encoding = 'UTF-8') %>% 
  mutate(address = zipangu::separate_address(都道府県市区町村)) %>%
 mutate(
    pref = unlist(map(.x = address, .f = ~ {flatten(.x)[[1]]})),
    city = unlist(map(.x = address, .f = ~ {flatten(.x)[[2]]}))
  )