R绘图结果里的中文字体

library(ggplot2)
library(ggtree)
library(showtext)
## Add fonts that are available on Windows
## font_paths() ##check font path
font_add("lishu", "SIMLI.TTF")


nwk <- ("111.nwk")
tree <- read.tree(nwk,fileEncoding = 'UTF-8')
p <- ggtree(tree) + geom_tiplab(aes(subset=grepl("中国字", label)),family = "lishu") 

showtext_auto()

pdf("example2.pdf", 7, 4)
print(p)
dev.off()
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。