帶有X11的R圖無法顯示CJK字體

Question

我裝在其日文字符一個UTF-8 CSV文件，其str是這樣的：

> str(purchases)
'data.frame':   168996 obs. of  7 variables:
 $ ITEM_COUNT     : int  1 1 1 1 1 1 2 2 1 1 ...
 $ I_DATE         : Date, format: "2012-03-28" "2011-07-04" ...
 $ SMALL_AREA_NAME: Factor w/ 55 levels "キタ","ミナミ他",..: 6 47 26 26 26 26 26 35 35 26 ...
 $ USER_ID_hash   : Factor w/ 22782 levels "0000b53e182165208887ba65c079fc21",..: 19467 7623 7623 7623 7623 7623 7623 7623 7623 7623 ...
 $ COUPON_ID_hash : Factor w/ 19368 levels "000eba9b783cec10658308b5836349f6",..: 3929 8983 5982 5982 5982 5982 5982 2737 18489 5018 ...
 $ category       : Factor w/ 13 levels "Beauty","Delivery service",..: 2 3 2 2 2 2 2 7 2 3 ...

因此，我認為沒有什么錯我的編碼或語言（的en_US.UTF-8）？ 但是當我與

> barplot(table(purchases$SMALL_AREA_NAME))

為什么日語字符會變成這樣的小塊？

我想我有顯示日語字符的字體

> names(X11Fonts())
[1] "serif"        "sans"         "mono"         "Times"        "Helvetica"   
[6] "CyrTimes"     "CyrHelvetica" "Arial"        "Mincho"      

附加信息：

> sessionInfo()
R version 3.2.2 (2015-08-14)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X 10.10.5 (Yosemite)

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

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

other attached packages:
[1] ggplot2_1.0.1

Answer 1

您可能需要看一下showtext包，該包允許您在R圖中使用不同的字體。 它還附帶可直接使用的CJK字體。

嘗試運行以下代碼：

library(showtext)
showtext.auto()
## ... code to generate data
barplot(table(purchases$SMALL_AREA_NAME))