varias - quitar una palabra de excel

Extraer la última palabra en la cadena en R

Question

¿Cuál es la forma más elegante de extraer la última palabra en una cadena de oración?

La oración no termina con un "." Las palabras están separadas por espacios en blanco.

sentence <- "The quick brown fox"
TheFunction(sentence)

debe volver: "zorro"

No quiero usar un paquete si es posible una solución simple. Si existe una solución simple basada en un paquete, eso también está bien.

Answer 1

Otra opción empaquetada es stri_extract_last_words() del paquete stringi

library(stringi)

stri_extract_last_words("The quick brown fox")
# [1] "fox"

La función también elimina cualquier puntuación que pueda haber al final de la oración.

stri_extract_last_words("The quick brown fox? ...")
# [1] "fox"

Answer 2

Solo para estar completo: la biblioteca stringr contiene una función para exactamente este problema.

library(stringr)

sentence <- "The quick brown fox"
word(sentence,-1)
[1] "fox"

Answer 3

Yendo en la dirección del paquete, esta es la respuesta más simple que se me ocurre:

library(stringr)

x <- ''The quick brown fox''
str_extract(x, ''//w+$'')
#[1] "fox"

Answer 4

tail(strsplit(''this is a sentence'',split=" ")[[1]],1)

Básicamente como lo sugiere el Señor O.

Answer 5

x <- ''The quick brown fox''
sub(''^.* ([[:alnum:]]+)$'', ''//1'', x)

Eso capturará la última cadena de números y caracteres antes de que finalice la cadena.

También puedes usar las funciones regexec y regmatches , pero encuentro un limpiador sub :

m <- regexec(''^.* ([[:alnum:]]+)$'', x)
regmatches(x, m)

Ver ?regex y ?sub para más información.