随笔7：R语言绘图黑白印刷风格芯片包

R语言绘图黑白印刷风格芯片包

##########################################

绘图芯片包chip_1.0版发布说明：

需要的用户请从Github下载，或者手动从百度网盘下载并手动安装本包。

rm(list = ls())
if (is.element('chip', installed.packages()[,1]) == FALSE) 
{
  if(is.element('devtools', installed.packages()[,1]) == FALSE)
  {	
    install.packages("devtools")	
    library(devtools)
  }
  else if(is.element('devtools', installed.packages()[,1]) == TRUE){
    library(devtools)
  }
  install_github("youngyaoguai/Rdraw/chip_1.0/chip")
  library(chip)
 } else if(is.element('chip', installed.packages()[,1]) == TRUE)
    {
    library(chip)
   }

链接：https://pan.baidu.com/s/1OoD5Gdjgsstm3ELCB-_exA 
提取码：6969

更新说明：近日来自北京邮电大学的网友“陌上青花”反映使用本包过程中出现错误如下：

“Error in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y,  : 找不到多边形的边”

经检查代码，发现是因为部分图形绘制函数在绘制坐标轴标题的同时添加了family参数且值设置为无意义的"A"。这里偷懒并未对所有绘图函数添加字体控制参数（因为有的图形绘制不太清楚如何添加字体控制），但用户一定要在外部环境用以下代码定义好字体类型：

Fon <- 'sans' ##定义字体

本文示范代码已更新，可以发现所有图形都提前定义了Fon对象。

可以用代码 font_families()  查看当前字体

#$serif
#[1] "TT Times New Roman" 新罗马

#$sans
#[1] "TT Arial"  宋体

#$mono
#[1] "TT Courier New"  雅黑

根据自己需要赋予Fon对象的值，Fon <- 'sans'就是设置成宋体，Fon <- 'serif'就是设置成新罗马字体，等等。

##########################################

1.基本说明

1.1本包的目标

让使用者将注意力集中在参数设定与调整上，而不是代码使用的细节，类似于一个芯片封装的过程。对几个常用的绘图函数进行了封装，并调整为印刷风格供使用者做课题或写论文参考。

1.2功能特色

设定好参数后，只需要一行代码便能绘制出印刷风格的R图像。

1.3数据说明

本包内置数据集均为随机或手动生成，输入以下命令能够看到对应绘图函数的详细说明。

help(acchist)  #R语言堆积柱状图黑白印刷风格绘制

help(bonbon)  #R语言棒棒图黑白印刷风格绘制