變化最後兩位數字爲 「00」

Question

假設我有以下data.frame：

dt=data.frame(id=LETTERS[1:5],code=c("101011,101102,101130","211011,101102", 
    "101011,301102,101132","201015,401102,103412","131011,101101,105430")) 

id     code 
A 101011,101102,101130 
B   211011,101102 
C 101011,301102,101132 
D 201015,401102,103412 
E 131011,101101,105430 
F   101100,103200` 

我希望代碼的最後兩個數字變成 「00」，就像這樣：

id     code 
A 101000,101100,101100 
B   211000,101100 
C 101000,301100,101100 
D 201000,401100,103400 
E 131000,101100,105400 
F   101100,103200` 

我怎樣才能做到這一點？

Answer 1

使用gsub與\\d{2}\\b;其中\\b匹配單詞邊界，\\d{2}\\b因此匹配字邊界之前的兩個數字;用gsub取代所有與00相符的配對：

dt$code <- gsub('\\d{2}\\b', '00', dt$code) 

dt 
# id     code 
#1 A 101000,101100,101100 
#2 B  211000,101100 
#3 C 101000,301100,101100 
#4 D 201000,401100,103400 
#5 E 131000,101100,105400