在 R 中格式化邮政编码(删除 - 从邮政编码)

Formatting Zipcode in R (removing - from zipcode)

我有以下数据集:

> head(data,3)
       city          state   zip_code      overall_spend
1      MIDDLESBORO    KY      40965        2,168.12
2      PALM BEACH     FL      33411-3518   9,240.74
3      CORBIN         KY      40701        2,496.03

现在,我想格式化 - 之后有多余部分的 zip_code。例如,在第二行中,我有 33411-3518。格式化后我只想 33411。我怎样才能对整个 zip_code 列执行此操作?此外,zip_code 现在是 factor

尝试

data$zip_code <- sub('-.*', '', data$zip_code)
data$zip_code
#[1] "40965" "33411" "40701"