r 功能：将数字格式化为百分比

Posted 2021-05-24

percent <- function(x, digits = 1, format = "f", ...) {
  paste0(formatC(100 * x, format = format, digits = digits, ...), "%")
}