>>416
write_csvのヘルプ見たらutf8で保存されるとあったからこれが理由ぽい
データと列名の両方をutf8にしたら化けずに出力できた

具体的には以下を噛ませた
#データ変換
    %>% mutate(across(where(is.character), enc2utf8)) %>%
#列名変換
     %>% rename_with(enc2utf8) %>%