Как удалить предпоследний 0 в числовом столбце?

Question

В числовом столбце old_code dataframe df1 мои целые числа имеют такую ​​структуру:

    head(df1$old_code)
    [1] 12101 18201 13202 11301 13302 10401

В столбце new_code я хотел бы получить те же самые точные целые числа, минус второе до последнего 0 (т.е. 12101 я хотел бы1011, 18201 как 1021).Я уверен, что это решается с помощью регулярных выражений, но я не могу взломать код.

Спасибо за вашу помощь!

Answer 1

Вы можете попробовать использовать gsub:

gsub("(.*)0(.)$", "\\1\\2", df$old_code)
# [1] "1211" "1821" "1322" "1131" "1332" "1041"

Answer 2

Вы можете попробовать преобразовать его в строку:

df$old_code=as.character(df$old_code) 
a= substr(df$old_code, 1, 1) 
b=substr(df$old_code, 3,nchar(df$old_code)) 
df$old_code=paste0(a,b) 
df$old_code=as.integer(df$old_code)