R中身份证号提取出生日期和性别

有一列数据是身份证号码，有的是15位，有的是18位数，还有其他的证件类型的号码，长度小于15，请问如果在这样的一列数据里面提取出生日期和性别。出生日期主要用于计算年龄。谢谢~~~

18位的，就用substring截取，7到14位
15位的，对应截取位数，然后再从中提取年份，月份和日期。这些格式都是固定的。最后转成numeric就行了。

性别应该看最后一位的奇偶性吧（X就不知道了），

jiangbeilu 发表于 2015-11-4 01:03
18位的，就用substring截取，7到14位
15位的，对应截取位数，然后再从中提取年份，月份和日期。这些格式都 ...

其实我想问的是哪个函数可以取到证件号码的长度，用length(temp$证件号码)得到的是证件号码的个数，不是每个证件号码的长度

jiangbeilu 发表于 2015-11-4 01:03
18位的，就用substring截取，7到14位
15位的，对应截取位数，然后再从中提取年份，月份和日期。这些格式都 ...

nchar，谢谢。

1、代码
#出生日期处理函数
afunc<-function(id){
        if(nchar(id)==15)
                paste('19',substr(id,7,12),sep="")
        else
                substr(id,7,14)
}

#性别处理函数
bfunc<-function(id){
        if(nchar(id)==15)
                ifelse(as.numeric(substr(id,15,15)) %% 2 ==1,'M','F')
        else
                ifelse(as.numeric(substr(id,17,17)) %% 2 ==1,'M','F')
}

#测试数据
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)

2、结果输出

                  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

具体原理参考：http://blog.csdn.net/hongweigg/article/details/49633631

zhaoleibupt 发表于 2015-11-4 09:16
性别应该看最后一位的奇偶性吧（X就不知道了），

最后一位跟性别无关啊。我和女票最后身份证最后一位是一样的。