一． 前言

笔者一直是做数据分析的，基本没跑过胶，前两天为了实验需要，做了几板胶图。但是胶图读带数胶孔的时候，我有些强迫症，每次数到一半就数乱了还要再重新数，一个胶图要重数好几次，这让我抓狂了。于是我决心写个程序来自动把编号添加到胶图上，方便读带。经过两天的努力写了一个自动加编号的程序，结果如下图，效果还是很好，数字位置标记很准确，再也不用担心胶图读带了。

虽然说自动，但是需要用鼠标点几下，是半自动的。我也想过通过模式识别，识别出胶孔，但是很难，而且胶图的情况复杂，全自动不现实。

程序是用R语言写的，需要使用者稍微有点R语言基础。本文就不介绍R语言程序的安装了。

二． 安装

使用前先将add_num文件夹下所有内容下载到本地。

该程序运行前需要安装一些R包，所需要的R包已经放在add_num文件夹下的‘1_installPackage’文件夹里。

打开R语言界面，将‘1_install.R’的代码复制到R命令窗口运行，会自动弹出一个文件选择对话框，选择‘1_installPackage’文件夹下任意一个文件即可，就会自动安装所需的包（如图）。

当出现“Congratulates”的字样时（如下图），表明R包安装成功，可以进行下一步了。R包只需要安装一次即可。

三． 使用

  代码主要在2_add_num.R 里，有个 add_num()的函数。

用法：

    add_num(infile,nrow=1,start=0,end=25,cex=2)

参数：

     infile：     胶图文件名，支持png,tiff,jpg格式。

     nrow：    添加编号的行数， 默认1。

     start：    起始编号，默认0。

     end：     最大编号，默认25.

      cex：     字体大小，默认2.

下面讲主要的步骤了！

     1、运行 source(file.choose())

在弹出的对话框中选择2_add_num.R

2、运行下面代码

          add_num(infile=file.choose(),nrow=4,cex=1.5)

   在弹出的对话框中选择需要添加编号的胶图（胶图所在路径中不要有中文

  字符），

  3、出现‘please click the first hole’时，点击第一个胶孔的位置（箭头指向，通常是Marker的位置）， 

   4、按照提示分别再继续点击第一排最后一个点样胶孔和第二、三、四排第一个胶孔（如下图），结束后会出现“add number successful”提示，表明运行成功，在胶图所在文件夹中会生成一个以“胶图名称_num”命名的标记好编号的胶图图片，大功告成！（注：这里是在Rstudio里运行该程序的方法，若在R程序中运行上述内容时，只需每次在胶图上点击胶孔后再点击一下R Console”命令行界面即可，其他内容与在Rstudio程序里运行方式完全相同。）

注意事项

1、在R和Rstudio里均可运行该程序，但在Rstudio比R里运行该程序更简单方便些。

2、用熟练后不看提示，出现图片后，依次点击下面的位置即可。 

四． 总结

该程序结合人工识别能很方便快捷添加胶图编号，大大提高读带效率，并通过设置nrow, start, end 满足不同的需求，使用简单方便。

使用时请注意文件名不要有中文字符。

PS：该程序和教程由caumine@gmail.com原创，感谢其供稿，其他公众号转载需获得授权，鼓励个人分享转载。

2019年，遇见更好的自己

更多套路咨询13120220117（微信同号）