R从一个句子中获取N个单词作为字符串

Question

在 R 中，我如何编写一个函数，给定一个句子，我可以传递一个整数参数，将结束词作为字符串返回

EG

sentence <- "The quick brown fox jumps over the lazy dog"
result <- get_words(sentence, 2)

结果应该等于"lazy dog"

如果请求的单词总数超过句子中的单词，该函数应该包含保护子句并返回最后一个单词

Answer 1

纯粹的stringi 解决方案（stringr::word() 是矫枉过正，比这使用更多的stringi 函数。stringr handicap-wraps stringi 函数）：

library(stringi)

sentence <- "The quick brown fox jumps over the lazy dog"

tail(stri_extract_all_words(sentence)[[1]], 2)
## [1] "lazy" "dog" 

stri_join(tail(stri_extract_all_words(sentence)[[1]], 2), collapse=" ")
## [1] "lazy dog"

实际可读版本：

library(magrittr)

stri_extract_all_words(sentence)[[1]] %>% 
  tail(2) %>% 
  stri_join(collapse=" ")
## [1] "lazy dog"

它还使用了更好的、区域敏感的断词算法，优于基本 R 算法。

Answer 2

sentence <- "The quick brown fox jumps over the lazy dog"
paste(tail(strsplit(sentence, "\\s+")[[1]], 2), collapse=" ")

Answer 3

您可以使用 stringr 库来做到这一点。

library(stringr)

sentence <- "The quick brown fox jumps over the lazy dog"
word(sentence, start = -2, end = -1)

根据 tyluRp 的建议编辑。