Phân tích từ

Thuộc phần Logic và luồng điều khiển trong hành trình R của Coddy. Bài học 62 trên 64.

Thử thách

Khó

Hoàn thiện word_stats(text). Chuyển văn bản thành chữ thường và xóa các ký tự ., ,, ! và ?, sau đó tách văn bản thành các từ tại những đoạn gồm nhiều dấu cách. Trả về bốn dòng:

Words: kèm số lượng từ
Distinct: kèm số lượng từ khác nhau
Top: kèm ba từ xuất hiện thường xuyên nhất và số lần xuất hiện, chẳng hạn the (3), and (2), bird (1), sắp xếp theo số lần xuất hiện từ cao xuống thấp và theo thứ tự bảng chữ cái nếu số lần bằng nhau (trả về ít hơn ba từ nếu văn bản có ít từ hơn)
Longest: kèm từ dài nhất và độ dài của từ trong ngoặc, chọn từ xuất hiện đầu tiên trong văn bản nếu có nhiều từ dài bằng nhau

Code được cung cấp đọc văn bản và in ra từng dòng được trả về.

Tự làm thử

word_stats <- function(text) {
  # Viết code của bạn ở đây
  character(0)
}

# Đoạn code đầu vào/đầu ra có sẵn: giữ nguyên
input <- suppressWarnings(readLines(file("stdin")))
cat(word_stats(input[1]), sep = "\n")