r - 如果小于 10，则将数字打印为单词

Question

考虑这个代码:

sample(1:20, 1)

如果结果恰好小于或等于 10，我可以让 R 将数字打印为单词吗？例如，如果 sample(1:20, 1) 的结果是 2，如果 sample(1:20, 1) 的结果，我可以编程 R 将结果打印为两个吗？是 10，如果 sample(1:20, 1) 的结果，我可以编程 R 将结果打印为 10是 13，我可以编程 R 将结果打印为 13，依此类推。

我正在使用 knitr为我的论文将 R 代码转换为 latex 。我的规则是任何小于或等于 10 的数字都应该打印为单词。

Answer 1

您可以使用 english将数字转换为英文单词的包:

set.seed(1)
s <- sample(1:20, 10)
# [1]  6  8 11 16  4 14 15  9 19  1

library(english)
ifelse(s > 10, s, as.character(english(s)))
# [1] "six"   "eight" "11"    "16"    "four"  "14"    "15"    "nine"  "19"    "one"