如何阻止read_xsl将指定邮政编码列强制转换为数值？

有几种方法可以精准控制邮政编码列的类型，同时保留其他列的原始类型：

方法1：指定单列为文本类型（推荐） #

利用read_xlsx的col_types参数，针对邮政编码列单独设置类型，其他列留空让函数自动推断：

• 如果知道邮政编码列的位置（比如是第8列）：

  library(readxl)
  df <- read_xlsx("your_file.xlsx", 
                  col_types = c(rep("guess", 7), "text", rep("guess", 13)))
  # 将该列转为factor类型
  df$zipcode <- as.factor(df$zipcode)
  

• 如果知道邮政编码列的列名（比如叫zipcode）：
  先读取列规范（不加载完整数据），再修改目标列类型：

  library(readxl)
  # 获取默认列规范
  col_spec <- read_xlsx("your_file.xlsx", n_max = 0)
  # 修改目标列类型为文本
  col_spec$cols$zipcode <- col_text()
  # 用修改后的规范读取数据
  df <- read_xlsx("your_file.xlsx", col_types = col_spec)
  # 转为factor类型
  df$zipcode <- as.factor(df$zipcode)
  

方法2：读取后恢复前导零 #

如果已经把邮政编码读成了数值类型，可以根据编码位数补回前导零（假设是5位邮编）：

# 转成字符型补零后再转factor
df$zipcode <- as.factor(sprintf("%05d", df$zipcode))
# 若邮编长度可变，用str_pad更灵活（示例为补至5位）
library(stringr)
df$zipcode <- as.factor(str_pad(df$zipcode, width = 5, side = "left", pad = "0"))

内容的提问来源于stack exchange，提问作者Nava Ajay Shankar A