Macのjupyでggplotの日本語表示

# システムのフォントを確認

systemfonts::system_fonts() %>% filter(grepl("Hira", family)) %>% select(name, path)

# 登録

quartzFonts(hiragino=rep("HiraMaruProN-W4", 4))

quartzFonts()

# 表示（ggplot）

theme(text=element_text(family="hiragino"))