如何在R中随机选句子并按单词字符数排序（同数按字母序）

从给定文本中随机选取5个句子如下：

• We find joy in the simplest things.
• He wrote down a long list of items.
• Screen the porch with woven straw mats.
• The theft of the pearl pin was kept secret.
• Sweet words work better than fierce.

函数功能 #

统计文本中每个单词的字符数，按字符数从小到大排序；字符数相同时，按单词字母顺序从小到大排序。

R函数代码 #

sort_words_by_length <- function(text) {
  # 拆分文本为单词，转小写并去除标点符号
  words <- tolower(gsub("[[:punct:]]", "", strsplit(text, " ")[[1]]))
  # 计算每个单词的字符数
  word_lengths <- nchar(words)
  # 按字符数升序排序，字符数相同则按单词字母顺序升序排序
  sorted_words <- words[order(word_lengths, words)]
  # 合并排序后的单词为字符串返回
  paste(sorted_words, collapse = " ")
}

测试与结果 #

使用给定输入文本测试函数：

input_text <- "We find joy in the simplest things. He wrote down a long list of items. The hail pattered on the burnt brown grass. Screen the porch with woven straw mats. The theft of the pearl pin was kept secret. Sweet words work better than fierce."
sort_words_by_length(input_text)

运行结果与要求一致：

[1] "a he in of of on we joy pin the the the the the the was down find hail kept list long mats than with work brown burnt grass items pearl porch straw sweet theft words woven wrote better fierce screen secret things pattered simplest"

内容的提问来源于stack exchange，提问作者gazel alaryan