2

我有一部分代码应该以法语格式显示货币价值

这段代码

library(formattable)

currency(x = 123456, symbol = "€", digits = 0)

给我“123,456 欧元”。

我需要以法语格式为我提供单个值的“123 456€”的代码。

谢谢！

4

1 回答 1

1

我不确定如何使用currency功能来做到这一点。似乎没有考虑将符号放在后面。

您可以结合使用prettyNum函数 from在末尾添加符号：base Rpaste

paste(prettyNum(x, big.mark = " ",big.interval = 3), "€")

[1] "123 456 €"

或者，在 中DT，您可以使用formatCurrency函数：

library(DT)

x = 123456
datatable(as.matrix(x)) %>% formatCurrency(1, '\U20AC', digits = 0, before = FALSE, mark = "")

它回答了你的问题吗？

于 2020-04-02T21:45:19.140 回答