r - 在 R 中将千位格式化为 Ks

Question

如何在 R 中将 465456.6789 等数字格式化为漂亮的 465,4K？其他例子 13567.566 到 13,5K 3567.5 到 3,5K 等等。一般来说，我想要类似的东西

roundup_to <- function(x, to = 10, up = FALSE){
  if(up) round(.Machine$double.eps^0.5 + x/to)*to else round(x/to)*to
}

roundup_to(c((74453.867574737)), to = 100)

成为 74,5K

Answer 1

您还可以查看对数字进行四舍五入的函数 scales::label_number_si。

a <- c(465456.6789, 3567.5, 1465458.12)
scales::label_number_si(accuracy = 0.1)(a)

#[1] "465.5K" "3.6K"   "1.5M"