在R中从文本字符串numeric传递到numeric

假设我有

---

文字列表我们可以使用
英语
。创建一个数字的初始向量（'v1'），将其转换为
英语
，并检查它是否是%

中的

%文本列表，以获得逻辑
向量
，并基于该子集生成“v1”

library(english)
v1 <- 1:10
v1[as.character(english(1:10)) %in% list_of_literals]
#[1] 6 7 8

图书馆（英文）
也许是这个？看起来很有趣，Andrey，也许这是解决这个问题最有效的方法；这是我一直在寻找的答案。请回答这个问题，我将它设为答案。
list_of_literals <- c("six", "seven", "eight")