2017-10-09 73 views
-1

對於造型數據可視化的目的,我想能夠使用的話,以顯示一個整數(例如整型轉換爲字

「兩千和17」

),而(例如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) 
+1

我編輯了一個問題的句子,因爲它違反SO規則要求圖書館的建議。無論如何,你有沒有看過這個(走在另一個方向,但很容易顛倒)https://stackoverflow.com/questions/18332463/convert-written-number-to-number-in-r? –

+1

嗯,我已經給你解決方案上面鏈接和另一個在我的答案下面,但含糊或具體它只是違反規則要求圖書館的建議。沒什麼大不了的,它很容易被編輯出來,人們仍然可以用庫來回答。規則只是規則,你知道嗎? –

回答

3

選項1:

使用從 '英語' 包as.english功能:

library(english) 

as.english(2017) 


選項2:

使用從 'qdap' 包的replace_number功能。

library(qdap) 

replace_number(2017) 
4

旁白,這裏是從另一個解決方案GitHub的要旨:

source("https://gist.githubusercontent.com/hack-r/22104543e2151519c41a8f0ce042b31c/raw/01731f3176b4ee471785639533d38eda4790ab77/numbers2words.r") 

numbers2words(0) 

[1] 「零」

numbers2words(5) 

[1] 「五」

numbers2words(50000) 

[1] 「五萬」

numbers2words(50000000000000) 

[1] 「500000億」

+0

@BIQS再試一次 –