単語分析

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 62/64。

チャレンジ

難しい

word_stats(text)を完成させてください。テキストを小文字に変換し、.、,、!、?の文字を削除してから、スペースの連続する箇所で単語に分割します。次の4行を返してください：

単語数を伴うWords:
異なる単語の数を伴うDistinct:
出現頻度が最も高い3つの単語とその個数を伴うTop: 。例：the (3), and (2), bird (1)。個数の高い順に並べ、個数が同じ場合はアルファベット順にします（テキストの単語数が3未満の場合は、3つ未満になります）
最も長い単語と、その長さを括弧内に示すLongest: 。最長の単語が複数ある場合は、テキスト内で最初に現れるものを使用します

与えられたコードはテキストを読み取り、返された各行を出力します。

自分で試してみよう

word_stats <- function(text) {
  # ここにコードを書いてください
  character(0)
}

# 提供された入力/出力コード：そのままにしておいてください
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")