使用X11的R图不能显示CJK字体

Question

我加载了一个包含日语字符的UTF-8 csv文件，其字符串如下：

> 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))