Удалить последние цифры из цифр, которые превышают определенную длину

Question

У меня есть векторный почтовый индекс, который содержит как пять, так и девять цифр. Я хочу отбросить конечные цифры от кодов, которые превышают длину в пять.

Например, следующие коды:

zip<-c(11566, 46235, 50467, 856073217, 97333, 856159229) 

должны стать

zip 
11566 
46235 
50467 
85607 
97333 
85615 

Я думал GSUB бы хороший способ, чтобы исправить это, но я не могу понять, как писать код для него. Я пробовал это, но он определенно не работает.

df$zip<- gsub("\\d(!i:5)", "", as.character(df$zip)) 

Answer 1

Это должно работать

zip<-c(11566, 46235, 50467, 856073217, 97333, 856159229) 

> s <- substr(zip,1,5) 
> s 
[1] "11566" "46235" "50467" "85607" "97333" "85615" 

> as.numeric(s) 
[1] 11566 46235 50467 85607 97333 85615 
> 

Answer 2

Мы можем использовать sub. Захватите первые пять символов как группу ((.{5})), а затем остальные персонажи. В замене мы заменяем backreference.

as.numeric(sub("(.{5}).*", "\\1", zip)) 
#[1] 11566 46235 50467 85607 97333 85615 

Просто чтобы быть ясно, метод substr будет быстрее, чем sub. Но, поскольку пост был об использовании gsub/sub, это было бы полезно.