R Iは、文字列として文与えられたIが終了ワードを返す整数の引数を渡すことができる関数を作成する方法Rの文字列

Question

として文からNワードを取得

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ハンデラップ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

stringrライブラリで実行できます。

library(stringr) 

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

tyluRpの提案後に編集されました。

Answer 3

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