判断ori_data[,1]中是否存在元素a:
a %in% ori_data[,1]
如果存在返回 true，否则返回 false
R语言判断向量中是否存在一个元素
原文：http://www.cnblogs.com/awishfullyway/p/6633686.html
