R语言实践中文&字体

admin

1. CairoPDF(file = ifelse(onefile, "Rplots.pdf","Rplotd.pdf"),
   
2.          width = 6, height = 6, onefile = TRUE, family = "Helvetica",
   
3.          title = "R Graphics Output", fonts = NULL, version = "1.1",
   
4.          paper = "special", encoding, bg, fg, pointsize, pagecentre)
   
5. library(Cairo);
   
6. CairoPDF();
   
7. library(Cairo);
   
8. CairoPDF();
   
9. plot(1:10,1:10,type="n");
   
10. text(2,10,"宋体",family="SimSun");
    
11. text(2,8,"黑体",family="SimHei");
    
12. text(2,6,"楷体",family="KaiTi_GB2312");
    
13. text(2,4,"隶书",family="LiSu");
    
14. text(2,2,"幼圆",family="YouYuan");
    
15. text(6,10,"Arial",family="Arial");
    
16. text(6,8,"Times New Roman",family="Times New Roman");
    
17. text(6,6,"Courier New",family="Courier New");
    
18. text(6,4,"Consolas",family="Consolas");
    
19. text(6,2,"Symbol",family="Symbol");
    
20. dev.off();
    
21. dev.off();
    
22. 
    
23. library(ggplot2)
    
24. library(Cairo)
    
25. CairoPDF(file = "mtcars_plot.pdf")
    
26. p <- ggplot(data = mtcars, aes(x=wt, y=mpg))
    
27. p + geom_point() +
    
28.   labs(title = "32种车型的油耗效率", x = "重量 (x1000 lb)", y = "每加仑行驶公里数") +
    
29.   theme(plot.title = element_text(family="Microsoft YaHei", size=20),
    
30.         axis.title.y = element_text(family="simhei", size=14),
    
31.         axis.title.x = element_text(family="simsun", size=14))
    
32. # 此种情况下，element_text() 中的 face 参数无效
    
33. # ("plain", "italic", "bold", "bold.italic") 斜体、粗体无法显示
    
34. dev.off()
    
35. How to use your favorite fonts in R charts
    
36. install.packages("extrafont")
    
37. library(extrafont)
    
38. font_import()
    
39. names(pdfFont()) # 已经有中文字体

复制代码

如"Microsoft YaHei"，但依然不能成功；只能使用“GB1”能显示中文，但不能真正指定字体，且英文字体也很怪异。


原文地址：http://blog.sina.com.cn/s/blog_6d109e060101q0x2.html