将 dplyr 中的数字格式化为货币？

Question

我希望将dplyr 动词中的报价美元数字格式化为货币格式，不包含美分。四舍五入到最接近的美元。这是我到目前为止的代码及其输出。我怎样才能得到报价美元从一个数字（1000.5 到 1001 美元）？

$ ADD_PROD_DESC          <chr> NA, NA, "Copper White 147-1472G", "Copper White 147-1472G", "Copper White 147-1472G", "Copper White 147-1472G", "Copper White 147-1472G", "Copper White~
$ Manufacturer_Model_NBR <chr> NA, "1404N42-00", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1672G", "147-1672G", "147-1672G", "14~
$ Call_For_Price         <chr> "FALSE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "FALSE", "TRUE", "TRUE~
$ Quote_Dollars          <dbl> 1784781.3, 1008000.0, 746010.0, 703822.5, 703822.5, 703822.5, 703822.5, 646818.5, 646818.5, 613302.3, 560757.6, 560757.6, 560757.6, 560757.6, 519990.0,~

Answer 1

您可以使用该包scales：

Quote_Dollars <- scales::dollar_format()(data$Quote_Dollars)

dollar_format默认情况下四舍五入到最接近的值。