检查文本中的大写单词并将其提取 [英] check capital words in text and extract it

问题描述

我想从文本中提取所有大写单词.可以说我的数据就像->

I want to extract all capital words from the text. Lets say my data is like-->

Text<-c('I am JAY','I AM NOT HAPPY','YOU ARE IRRITATING','so Funny','hEY)

所以输出应该像->

> output

[1]我喜欢"我不高兴"您令人反感"""

[1] "I JAY" "I AM NOT HAPPY" "YOU ARE IRRITATING" "" ""

为此请帮帮我.

推荐答案

另一个选项是

library(stringr)
sapply(str_extract_all(Text, '\\b[A-Z]+\\b'), paste, collapse=' ')
# [1] "I JAY"              "I AM NOT HAPPY"     "YOU ARE IRRITATING"
#[4] ""                   ""    

或

 gsub("[a-z][A-Za-z]+|[A-Za-z][a-z]+", '', Text)
 #[1] "I  JAY"             "I AM NOT HAPPY"     "YOU ARE IRRITATING"
 #[4] " "                  ""                  

数据

 Text<-c('I am JAY','I AM NOT HAPPY','YOU ARE IRRITATING','so Funny','hEY')

这篇关于检查文本中的大写单词并将其提取的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！