r - 将整数转换为单词

Question

出于样式化数据可视化的目的，我希望能够使用单词(例如

"Two thousand and seventeen"

) 而不是数字(例如 2017 )。

作为我正在寻找的示例，这里有一个适用于小的标量整数的快速函数:

int_to_words <- function(x) {

                   index <- as.integer(x) + 1
                   words <- c('zero', 'one', 'two', 'three', 'four',
                              'five', 'six', 'seven', 'eight', 'nine',
                              'ten')
                   words[index]
}


int_to_words(5)

Answer 1

选项 1:

使用 as.english 'english' 包中的函数:

library(english)

as.english(2017)

选项 2:

使用 replace_number 'qdap' 包中的函数。

library(qdap)

replace_number(2017)

选项 3:

使用 numbers_to_words 'xfun' 包中的函数。

library(xfun)

numbers_to_words(2017)