從字符串中提取世紀和年份

Question

我有一個顯示字符串的大列，例如：

20-1843PA-HY-4563-214DF

“20”是世紀，而“18”是年份。使用 function 並在 ZE1E1D3D40573127E9AFZEE0480C 中有 2018 年的 output 提取這兩者的最簡單方法是什么？

Answer 1

我們可以使用sub從字符串的開頭 ( ^ ) 后跟-將數字捕獲為一組，然后捕獲兩個數字 ( (\\d{2}) ) 並替換為反向引用 ( \\1\\2 ) 被捕獲的組

f1 <- function(nm) as.numeric(sub("^(\\d+)-(\\d{2}).*", "\\1\\2", nm))
f1(str1)
#[1] 2018

數據

str1 <- "20-1843PA-HY-4563-214DF"

Answer 2

我會做這樣的事情：

chr_collumn<-"20-1843PA-HY-4563-214DF"
chr_collumn<-strsplit(chr_collumn,"-")
chr_collumn<-unlist(chr_collumn)[1:2]
chr_year<-paste0(chr_collumn[1],strtrim(chr_collumn[2],width=2))
chr_year<-as.numeric(chr_year)
chr_year