R语言实例-身份证信息提取

2024-04-15 00:07:17

1、身份证信息说明

15位身份证号码：第7、8位为出生年份(两位数)，第9、10位为出生月份，第11、12位代表出生日期，第15位代表性别，奇数为男，偶数为女。

18位身份证号码：第7、8、9、10位为出生年份(四位数)，第11、第12位为出生月份，第13、14位代表出生日期，第17位代表性别，奇数为男，偶数为女。

2、R语言实现

#出生日期处理函数
afunc<-function(id){if(nchar(id)==15)paste('19',substr(id,7,12),sep="")elsesubstr(id,7,14)
}#性别处理函数
bfunc<-function(id){if(nchar(id)==15)ifelse(as.numeric(substr(id,15,15)) %% 2 ==1,'M','F')elseifelse(as.numeric(substr(id,17,17)) %% 2 ==1,'M','F')
}

3、测试

（1）测试数据

330622810725323
110221290815224
431021197306142736
431128197009055759
440700197510019150
360731196804216811
150123195103126841
222424195110306886
61102319591227666X
141182195505236567
220182196410190862
14062219620604034X
341124196902230765

（2）测试

#测试数据
ids<-c("330622810725323","110221290815224","431021197306142736","431128197009055759","440700197510019150","360731196804216811","150123195103126841","222424195110306886","61102319591227666X","141182195505236567","220182196410190862","14062219620604034X","341124196902230765")

#转换为矩阵
m.testdat<-matrix(ids,ncol=1)

#提取出身日期和性别
birthday<-apply(m.testdat,1,afunc)
gendor<-apply(m.testdat,1,bfunc)

result<-data.frame(ids,birthday,gendor)
print(result)

输出结果：

ids birthday gendor
1     330622810725323 19810725   M
2     110221290815224 19290815   F
3 431021197306142736 19730614   M
4 431128197009055759 19700905   M
5 440700197510019150 19751001   M
6 360731196804216811 19680421   M
7 150123195103126841 19510312   F
8 222424195110306886 19511030   F
9 61102319591227666X 19591227   F
10 141182195505236567 19550523   F
11 220182196410190862 19641019   F
12 14062219620604034X 19620604   F
13 341124196902230765 19690223   F

R语言实例-身份证信息提取相关推荐

【R语言实例】igraph — 网络分析与可视化包（1）
作者简介: 本文作者系大学统计学专业教师,多年从事统计学的教学科研工作,在随机过程.统计推断.机器学习领域有深厚的理论积累与应用实践. igraph是一套用于网络分析与可视化的r包,它以高效.便捷.使 ...
数据ETL——使用R语言对身份证进行校验，排序筛选等操作
数据ETL--使用R语言对身份证进行校验,排序筛选等操作 CSV格式如图所示 1.分别查询:  吉林省的身份证号码(参考GB/T2260-2007标准)  校验码不正确的无效身份证号码  50岁 ...
语言abline画不出线_教材中定性分析的R语言实例
我们的年级由于疫情,统计这一章被甩在了高二,和前一个版本的教材<必修三>相比,也发生了一些变化. 对于统计图表的呈现,由于个人学艺不精,Geogebra有统计功能,但自己的使用存在着局限性 ...
手把手教线性回归分析（附R语言实例）
本文长度为8619字,建议阅读15分钟本文为你介绍线性回归分析. 通常在现实应用中,我们需要去理解一个变量是如何被一些其他变量所决定的. 回答这样的问题,需要我们去建立一个模型.一个模型就是一个公式 ...
机器学习中的K-means算法原理与R语言实例
聚类是将相似对象归到同一个簇中的方法,这有点像全自动分类.簇内的对象越相似,聚类的效果越好.支持向量机.神经网络所讨论的分类问题都是有监督的学习方式,现在我们所介绍的聚类则是无监督的.其中,K均值(K ...
WOE信用评分卡--R语言实例
目录(?)[-] 信用卡评分一数据准备二数据处理三变量分析四切分数据集五Logistic回归六WOE转换七评分卡的创建和实施转载自:http://blog.csdn.net/csqaz ...
机器学习中的EM算法具体解释及R语言实例（1）
最大期望算法(EM) K均值算法很easy(可參见之前公布的博文),相信读者都能够轻松地理解它. 但以下将要介绍的EM算法就要困难很多了.它与极大似然预计密切相关. 1 算法原理最好还是从一个样例開 ...
【R语言实例】物种分布模型介绍
作者简介: 本文作者系大学统计学专业教师,多年从事统计学的教学科研工作,在随机过程.统计推断.机器学习领域有深厚的理论积累与应用实践.个人主页 1. 背景知识物种分布模型(species dist ...
[R语言]{实例}车辆车架号VIN码校验函数
背景: 车辆识别号码(Vehicle Identification Number,简称VIN码,亦称车架号),是车辆唯一ID标识,也是保险公司用于外部数据合作的主要匹配字段. VIN码由17位字符(2 ...

最新文章

热门文章