Suppression de l'espace entre les deux derniers mots d'une chaîne dans R

Question

Je tente de supprimer l'espace entre les deux derniers mots d'une trame contenant plusieurs chaînes. J'ai essayé d'utiliser gsub mais ma tentative de gsub("(\\s){1}$","",df1$V1) semble tout à fait fausse! df1 est mon ensemble de données et df2 est le résultat que je suis après.

df1 <- data.frame(V1=c("Apple Pear Orange, AAA 111", "Grapes Banana Pear . BBB 222", "Orange Kiwi Melon , CCC 333", "Apple DDD 444", "Kiwi Melon Orange CCC 333", "Apple Pear Orange, AAA 111", "Tomato Cucumber EEE 222", "Seagull Pigeon ZZZ 111"), stringsAsFactors = F) 

df2 <- data.frame(V1=c("Apple Pear Orange, AAA111", "Grapes Banana Pear . BBB222", "Orange Kiwi Melon , CCC333", "Apple DDD444", "Kiwi Melon Orange CCC333", "Apple Pear Orange, AAA111", "Tomato Cucumber EEE222", "Seagull Pigeon ZZZ111"), stringsAsFactors = F) 

Answer 1

Ou encore ceci:

gsub("(.*)\\s","\\1",df1$V1) 

Answer 2

Vous pouvez utiliser des groupes de capture:

sub("(.*)\\s+([^\\s]+)$", "\\1\\2", df1$V1) 
#[1] "Apple Pear Orange, AAA111" "Grapes Banana Pear . BBB222" "Orange Kiwi Melon , CCC333" "Apple DDD444"    
#[5] "Kiwi Melon Orange CCC333" "Apple Pear Orange, AAA111" "Tomato Cucumber EEE222"  "Seagull Pigeon ZZZ111" 

Cette capture comme premier groupe un certain nombre de caractères, puis 1+ espaces et comme deuxième groupe 1+ caractères qui ne sont pas des espaces jusqu'à la fin de la chaîne. Il extrait ensuite uniquement les deux groupes de capture sans les espaces intermédiaires.

Answer 3

Voulez-vous profiter de la réponse de Docendo, vous pouvez utiliser \\w+ pour correspondre à des mots d'une longueur:

gsub("(\\w+)\\s+(\\w+$)", "\\1\\2" ,df1$V1) 

#[1] "Apple Pear Orange, AAA111" "Grapes Banana Pear . BBB222" "Orange Kiwi Melon , CCC333" 
#[4] "Apple DDD444"    "Kiwi Melon Orange CCC333" "Apple Pear Orange, AAA111" 
#[7] "Tomato Cucumber EEE222"  "Seagull Pigeon ZZZ111" 

Ensuite, vous pouvez utiliser la même idée avec les groupes de capture.