仅当有多个单词R时才从字符串中提取最后一个单词

我对从字符串中提取单词有点小问题。我有一列是一个物种的分类名称 “属种” . 我试图创建一个新的专栏,只介绍物种。最初我只是使用

library(stringr)
count$species  <- word(count$taxon_name, 2)

提取第二个单词。这很有效,直到我意识到 taxon_name 在属和种之间有一个括号的列,如下所示, “属(词)种” .

为了消除这种情况,我编写了这段代码,它非常有效地从包含该额外单词的条目中删除了偏旁词:

count$new_taxon <- gsub("\\([^()]*\\)", "", count$taxon_name)

然后在新列上执行上述操作

count$species  <- word(count$new_taxon, 2)

这仍然适用于所有未更改的条目,但如果删除了括号,则只会将条目留空,并且不会提取任何内容。我想可能是把空格当成了一个单词?我试着改变这个列是因子列还是角色列,但没有什么不同。有什么建议吗?

注:本质上,taxon_name列中有三种类型的输入 (1) 属种 (2) 属和 (3) 属(词)种。

当我尝试提取最后一个词时,它处理案例(1)和(3),但现在它包括(2),我只想成为NA,因为它没有物种。