Analiza słów

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 62 z 64.

Wyzwanie

Trudny

Uzupełnij word_stats(text). Zamień tekst na małe litery i usuń znaki ., ,, ! i ?, a następnie podziel go na słowa w miejscach ciągów spacji. Zwróć cztery wiersze:

Words: z liczbą słów
Distinct: z liczbą różnych słów
Top: z trzema najczęściej występującymi słowami i ich licznikami, na przykład the (3), and (2), bird (1), uporządkowanymi według liczby wystąpień malejąco, a w przypadku jednakowej liczby alfabetycznie (mniej niż trzy, jeśli tekst zawiera mniej słów)
Longest: z najdłuższym słowem i jego długością w nawiasach kwadratowych; jeśli kilka słów ma tę samą długość, wybierz pierwsze w tekście

Dostarczony kod odczytuje tekst i wyświetla każdy zwrócony wiersz.

Spróbuj swoich sił

word_stats <- function(text) {
  # Wpisz tutaj swój kod
  character(0)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")