想从Excel表中获取身份证号码,然后截去出生年月,代码如下
library(stringr)
setwd("C:/Users/zmj/Desktop")
data<-read.csv("chuli.csv", stringsAsFactors = FALSE)
myfunction=function(i){
if (i<396){
num1=str_sub(data[c(i),1],7,14)
print(num1)
i=i+1
}
}
x=0
while (x<395) {
x=x+1
data[x,1]=myfunction(x)
}
data
最后data是这个样子的
身份证号码
1 2
2 3
3 4
4 5
5 6
6 7
7 8
8 9
9 10
10 11
11 12
12 13
13 14
14 15
15 16
16 17