单词分析

本课属于 Coddy R 学习旅程的“逻辑与流程”单元。第 62 课，共 64 课。

挑战

困难

补全 word_stats(text)。将文本转换为小写，并删除字符 .、,、! 和 ?，然后按连续空格将文本拆分为单词。返回四行：

Words: 后面跟单词数量
Distinct: 后面跟不同单词的数量
Top: 后面跟出现频率最高的三个单词及其计数，例如 the (3), and (2), bird (1)，按计数从高到低排序，计数相同的单词按字母顺序排列（如果文本中的单词少于三个，则返回更少的单词）
Longest: 后面跟最长的单词及其长度（用括号括起）；如果有多个单词长度相同，则选文本中第一个

提供的代码会读取文本，并打印返回的每一行。

亲手试试

word_stats <- function(text) {
  # 在这里编写你的代码
  character(0)
}

# 提供的输入和输出代码：保持原样
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")