我们可以使用正则表达式查找来提取\w+后面的单词(n$t(")。$是元字符，因此只需转义(\)它

library(stringr)
str_extract_all(vec, '(?<=n\$t\(")\w+')[[1]]
[1] "Enrolments" "Paper"      "Rock"  

如果有多个元素，请使用unlist

unlist(str_extract_all(vec, '(?<=n\$t\(")\w+'))