1

我是一个 R 新手，我的编程作业遇到了麻烦。

输入是一首诗：

poem <- c(
  "Am Tag, an dem das L verschwand,", 
  "da war die Luft voll Klagen.",
  "Den Dichtern, ach, verschlug es glatt",
  "ihr Singen und ihr Sagen.",
  "Nun gut. Sie haben sich gefasst.",
  "Man sieht sie wieder schreiben.",
  "Jedoch:",
  "Solang das L nicht wiederkehrt,",
  "muß alles Flickwerk beiben.")

现在我需要提取所有大写字母并将它们组合成一个单词。我正在使用以下代码执行此操作：

poem_cap <- str_extract_all(poem, "[[:upper:]]")

然后我取消列出poem_cap：

one_word <- unlist(poem_cap)
one_word

下一个合乎逻辑的步骤是应用str_c：

one_word2 <- str_c(one_word, sep="")

但是 R 一直在输出不同的字母！如果我复制 的输出one_word2，用逗号分隔并应用于str_c输出，它可以工作：

one_word2 <- str_c("A", "T", "L", "L", "K", "D", "D", "S", "S", "N", "S", "M", "J", "S", "L", "F", sep="")
one_word

为什么会这样？我犯了一个错误吗？我如何转变为我可以使用的one_word2东西？str_c

4

1 回答 1

4

基本R方法，您可以简单地gsub在一个衬里中使用仅保留大写字母并粘贴它们（如@David Arenburg 强调的那样折叠）：

paste(gsub('[^A-Z]','',poem), collapse='')
#[1] "ATLLKDDSSNSMJSLF"
于 2015-05-20T08:51:53.970 回答