Wortanalyse

Teil des Abschnitts Logik und Ablaufsteuerung der R-Journey von Coddy. Lektion 62 von 64.

Aufgabe

Schwer

Vervollständige word_stats(text). Wandle den Text in Kleinbuchstaben um und entferne die Zeichen ., ,, ! und ?; teile ihn anschließend an Folgen von Leerzeichen in Wörter auf. Gib vier Zeilen zurück:

Words: mit der Anzahl der Wörter
Distinct: mit der Anzahl der verschiedenen Wörter
Top: mit den drei häufigsten Wörtern und ihren Häufigkeiten, etwa the (3), and (2), bird (1), nach Häufigkeit von hoch nach niedrig und bei gleicher Häufigkeit alphabetisch geordnet (weniger als drei, wenn der Text weniger Wörter enthält)
Longest: mit dem längsten Wort und seiner Länge in Klammern; bei mehreren gleich langen Wörtern das erste im Text

Der bereitgestellte Code liest den Text ein und gibt jede zurückgegebene Zeile aus.

REQUIRED OUTPUT FORMAT: <translation> [Your translated content here] </translation>

Probier es selbst

word_stats <- function(text) {
  # Schreibe deinen Code hier
  character(0)
}

# Bereitgestellter Ein-/Ausgabecode: belasse ihn wie er ist
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")