R Shiny内ggplotの日本語文字化け回避

R Shiny publish後の日本語文字化け回避

R Shinyで、ggplotを使用した日本語のサイトを作っています。媒体はMacOSで、EncodingはUTF-8です。Shiny app内の言語は日本語で表示されますが、ggplot内の言語が、文字化けしてしまいます。（Run appした時は、文字化けしないのですが、Publishした後にサファリでアプリを使う際に文字化けします。）ggplot内のthemeで、plot titleやaxis titleの表示をfamily fontを使って"HiraKakuProN-W3"にしています。themeとtheme_minimalやtheme_bwなどが併用できないみたいなので、themeを使って一つ一つelement_textでフォントを指定しています。

###該当のggplotのコード

ggplot(data, aes(x=月, y=個数)) + geom_bar(stat="identity") +
            labs(x = "月", y = "個数（個）", title = "売り上げ個数",
                 subtitle = paste("9月から12月:", min(year(data$日付)), " / 1月から8月:", max(year(data$日付)))) +
            theme(axis.title = element_text(size = 15),
                  axis.text = element_text(size = 12),
                  plot.title = element_text(hjust = 0.5, face = "bold", size = 20, family="HiraKakuProN-W3"),
                  plot.subtitle = element_text(hjust = 0.5, face = "italic", size = 15, family="HiraKakuProN-W3")) +
            scale_y_continuous(labels = function(x) format(x, big.mark = ",", scientific = FALSE))

該当のセッションインフォ

> sessionInfo()
R version 4.0.2 (2020-06-22)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS  10.16

Matrix products: default
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib

locale:
[1] ja_JP/ja_JP/ja_JP/C/ja_JP/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] gdata_2.18.0        lubridate_1.7.9     gridExtra_2.3       openxlsx_4.1.5     
 [5] formattable_0.2.0.1 shinythemes_1.1.2   shinybusy_0.2.2     forcats_0.5.0      
 [9] stringr_1.4.0       dplyr_1.0.0         purrr_0.3.4         readr_1.3.1        
[13] tidyr_1.1.0         tibble_3.0.3        ggplot2_3.3.2       tidyverse_1.3.0    
[17] readxl_1.3.1        shiny_1.5.0        

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.5        gtools_3.8.2      assertthat_0.2.1  digest_0.6.25     mime_0.9         
 [6] R6_2.4.1          cellranger_1.1.0  backports_1.1.8   reprex_0.3.0      evaluate_0.14    
[11] httr_1.4.2        pillar_1.4.6      rlang_0.4.7       rstudioapi_0.11   blob_1.2.1       
[16] rmarkdown_2.3     labeling_0.3      htmlwidgets_1.5.1 munsell_0.5.0     tinytex_0.24     
[21] broom_0.7.0       compiler_4.0.2    httpuv_1.5.4      modelr_0.1.8      xfun_0.15        
[26] pkgconfig_2.0.3   htmltools_0.5.0   tidyselect_1.1.0  fansi_0.4.1       crayon_1.3.4     
[31] dbplyr_1.4.4      withr_2.2.0       later_1.1.0.1     grid_4.0.2        jsonlite_1.7.0   
[36] xtable_1.8-4      gtable_0.3.0      lifecycle_0.2.0   DBI_1.1.0         magrittr_1.5     
[41] scales_1.1.1      zip_2.0.4         cli_2.0.2         stringi_1.4.6     farver_2.0.3     
[46] fs_1.5.0          promises_1.1.1    xml2_1.3.2        ellipsis_0.3.1    generics_0.0.2   
[51] vctrs_0.3.2       tools_4.0.2       glue_1.4.1        hms_0.5.3         rsconnect_0.8.16 
[56] fastmap_1.0.1     colorspace_1.4-1  rvest_0.3.6       knitr_1.29        haven_2.3.1