用R中的英文单词替换年份

Question

我需要预处理强制对齐的语音记录。 但是，我用文本表示替换年份有困难。 例如，1984年需要被“1984年”取代。 我尝试了qdap包的replace_number函数。 包装很棒，但它取而代之的是1984年的“一千九百八十四”。 我可以试试任何R包中的其他功能吗？ 谢谢！

Answer 1

您可以将每个部分分成两部分，并将每个部分分别转换为字符表示：

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

这将产生nineteen eightyfour