检查文本中的大写单词并提取它答案

【问题标题】：check capital words in text and extract it检查文本中的大写单词并提取它
【发布时间】：2014-12-01 07:12:51
【问题描述】：

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

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

所以输出应该是-->

> output

[1]“我 JAY”“我不开心”“你很烦人”“”“”

请帮帮我。

【问题讨论】：

为什么第一个值不是“I JAY”？您只是想提取“单词”（您如何定义它——按单词边界？）或任何大写字符？
我编辑了我的问题，请再次检查@AnandaMahto
@jay_phate 请显示所有可能的模式，而不是多次更改。
下次提问前请先确定所有规则
@RichardScriven，或者在回答之前询问评论——这不是比赛，你知道 ;-)

标签： r gsub

【解决方案1】：

另一种选择是

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')

【讨论】：

感谢 akrun，我编辑了我的 Text 变量，请查看最后一个变量。
谢谢大家。