stringr包str_extract_all()函数突然失效的技术求助

问题根源 #

你的代码报错是因为stringr包版本更新后，对向量长度匹配的规则变得更严格。旧版本的stringr允许长度为6的string向量（Wolves$Individual）和长度为3的pattern向量（c("Deer", "Elk", "Moose")）进行隐式循环回收（6是3的整数倍），但新版本（依赖vctrs包的严格检查）不再允许这种未明确声明的向量回收行为，因此触发了大小不匹配的错误。

解决方案 #

你的核心需求是从Individual列中提取对应的食物名称（Deer/Elk/Moose），可以通过以下两种方式修复：

方案1：合并正则表达式（推荐） #

将多个pattern合并为一个正则表达式，用|分隔表示“或”逻辑，这样pattern变为单个字符串，与string向量长度完全匹配，无需依赖隐式回收：

Wolves$Food <- str_extract(Wolves$Individual, "Deer|Elk|Moose")

• 用str_extract替代str_extract_all：因为每个Individual值中只会包含一个食物名称，单次提取即可，不需要提取所有匹配项，也就省去了unlist操作。
• 这个方案的结果与你原代码的逻辑完全一致，且兼容新版本stringr。

方案2：显式循环匹配（保留原配对逻辑） #

如果你希望严格保留原代码中“第1、4个个体匹配Deer，第2、5个匹配Elk，第3、6个匹配Moose”的配对逻辑，可以用purrr::map2实现显式循环：

library(purrr)

# 重复pattern向量到与string长度一致
patterns <- rep(c("Deer", "Elk", "Moose"), length.out = nrow(Wolves))
# 逐个匹配并提取
Wolves$Food <- unlist(map2(Wolves$Individual, patterns, str_extract), use.names = FALSE)

这种方式明确声明了向量的循环规则，也能通过vctrs的检查。

验证说明 #

假设你的Wolves数据框示例如下：

Wolves <- data.frame(
  Individual = c("Wolf1_Deer", "Wolf1_Elk", "Wolf1_Moose", "Wolf2_Deer", "Wolf2_Elk", "Wolf2_Moose"),
  Proportion = c(0.4, 0.3, 0.3, 0.5, 0.2, 0.3)
)

使用方案1的代码后，Food列会正确生成：c("Deer", "Elk", "Moose", "Deer", "Elk", "Moose")，与你原代码的预期结果完全一致。

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