Замена года английскими словами в R

Мне нужно предварительно обработать расшифровку речи для принудительного выравнивания. Однако мне трудно заменить год текстовым представлением. Например, 1984 нужно заменить на «девятнадцать восемьдесят четыре». Я попробовал функцию replace_number пакета qdap. Пакет потрясающий, но вместо него 1984 заменен на «одна тысяча девятьсот восемьдесят четыре». Есть ли другие функции из пакетов R, которые я могу попробовать? Спасибо!


r text-to-speech nlp speech-synthesis qdap
person Ninjacat    schedule 12.05.2017    source источник
comment
английский пакет Билла Венейблса   -  person mdsumner    schedule 12.05.2017

Ответы (1)


arrow_upward
5
arrow_downward

вы можете разделить каждую на две части и отдельно преобразовать каждую часть в символьное представление:

year = 1984
paste(
    replace_number(substr(as.character(year), 1, 2),
    replace_number(substr(as.character(year), 3, 4)
)

это даст nineteen eightyfour

person Quinn Weber    schedule 12.05.2017
comment
А как же случай 1903 года? Как сделать девятнадцать минут три? - person Ninjacat; 12.05.2017
comment
вы могли бы просто добавить какую-то особую логику для первого десятилетия каждого столетия. - person Quinn Weber; 12.05.2017