作者：黄天元，复旦大学博士在读，热爱数据科学与开源工具（R），致力于利用数据科学迅速积累行业经验优势和科学知识发现，涉猎内容包括但不限于信息计量、机器学习、数据可视化、应用统计建模、知识图谱等。知乎专栏：R语言数据挖掘。邮箱：huang.tian-yuan@qq.com.欢迎合作交流。
下面这段代码能够把环境设置成科研专用的字体环境，如果使用ggplot可以率先运行这一段，在进行画图。
myfree<-theme_set(theme_bw())
windowsFonts(HEL=windowsFont("Helvetica CE 55 Roman"),RMN=windowsFont("Times New Roman"),ARL=windowsFont("Arial"))
old_theme <- theme_update(plot.title=element_text(family="ARL", size=22, face="bold", colour="black"),axis.title.x=element_text(family="HEL", size=18,face="bold", colour="black"),axis.title.y=element_text(family="HEL", size=18, face="bold",angle=90, colour="black"),axis.text.x=element_text(family="RMN", size=16, colour="black"),axis.text.y=element_text(family="RMN", size=16, colour="black"),axis.ticks=element_line(colour="black"),panel.grid.major=element_blank(),panel.grid.minor=element_blank(),panel.background=element_blank(),axis.line=element_line(size=1)
)也可以根据自己的需要修改参数。如果需要原来的设置，要重启R。目前还没有探索到能够马上恢复的方法，如果有的话请各位大神教一下。
)
)
)
)
)