R語言例項車輛車架號VIN碼校驗函式

車輛識別號碼（vehicle identification number，簡稱vin碼，亦稱車架號），是車輛唯一id標識，也是保險公司用於外部資料合作的主要匹配字段。

vin碼由17位字元（23個大寫英文本母+數字，為避免混淆剔除了i、o、q三個英文本母）組成，3位wmi+5位vds+1位校驗碼+8位vis，詳情參考 17位車架號詳解。校驗方法參考車輛vin碼的校驗演算法。

無論是內部管理還是對外合作，vin碼都是主要匹配字段。不過資料庫裡個別值的錄入錯誤也是難免的，為了確保匹配的準確性，在外捍衛我大甲方的榮譽，清洗校驗的過程還是必要的。（當然最簡單的辦法還是在錄入時加乙個自動核驗）

#require(magrittr)
p.vin_check 
function(vin))
}

其實校驗的邏輯並不複雜，網上**隨便搜，無非就是對映，迴圈，最後加個判斷。然而半吊子程式設計師是矯情的，對簡潔是有追求的，因此也就有了這一行**（寫成多行是排版需要）。

首先，這種演算法在r中完全不需要通過對映加迴圈來實現，陣列就能搞定。

因此用

c(letters,0:9) #字元
c(1:8,na,1:5,na,7,na,9,2:9,0:9) #對應值

指示字元與值的對應關係。（為了保證安全，三個不存在的字母置na）

用strsplit打散vin碼字串，再通過charmatch和sum就已經求得了加總值。

隨後取餘的判斷涉及10與x的對應，不得已用了管道操作加乙個ifelse。

這是我目前能想到的最精簡的思路了，還請大神指教。

R語言 例項 車輛車架號VIN碼校驗函式