如何在R中按字符数拆分列？实现性别与绝育状态字段拆分

这里提供两种R语言的实现方式，适配你的数据格式：

方法一：基础R实现（无需额外包） #

针对示例中sexneuterstatus列无空格的情况（如maleneutered），可以通过字符串替换提取内容：

# 示例数据
Data = data.frame(CaseID = c('1','2','3','4','5'), 
                  sexneuterstatus =c('male','maleneutered','maleentire','male','maleneutered'))

# 新增sex列：所有记录性别均为male
Data$sex <- "male"

# 提取绝育状态：移除开头的"male"，空值替换为NA
Data$neuter_status <- sub("^male", "", Data$sexneuterstatus)
Data$neuter_status[Data$neuter_status == ""] <- NA

执行后结果：

CaseID sexneuterstatus sex neuter_status
1      1             male male         <NA>
2      2     maleneutered male    neutered
3      3       maleentire male      entire
4      4             male male         <NA>
5      5     maleneutered male    neutered

方法二：使用stringr包（更灵活，适配带空格的格式） #

如果你的原始数据存在带空格的取值（如male neutered、male entire），或者后续可能新增其他性别（如female），推荐用stringr包的正则匹配功能：

首先安装并加载包：

install.packages("stringr")
library(stringr)

然后处理数据：

# 适配带空格的示例数据（无空格格式也适用）
Data = data.frame(CaseID = c('1','2','3','4','5'), 
                  sexneuterstatus =c('male','male neutered','male entire','male','male neutered'))

# 正则匹配：捕获性别（开头的单词）和可选的绝育状态
matches <- str_match(Data$sexneuterstatus, "^(\\w+)(?:\\s*(neutered|entire))?$")

# 赋值到新列
Data$sex <- matches[, 2]
Data$neuter_status <- matches[, 3]

这个方法会自动识别性别（不管是male还是female），并提取对应的绝育状态，无状态的记录会自动设为NA。

内容的提问来源于stack exchange，提问作者at12342012