如何计算百分比并在R语言中实现百分比结果的打印？

• 基础内置方法：sprintf()函数
  不用额外安装包，直接通过字符串格式化实现。先将小数乘以100，再配合格式化语法输出百分号：

  x <- 0.2345
  sprintf("%.2f%%", x * 100)
  # 输出结果：[1] "23.45%"
  

  其中%.2f指定保留两位小数，%%是转义字符用来输出百分号，调整数字可以改变小数位数。

• 使用scales包的percent()函数
  属于ggplot2生态工具包，传入小数即可直接转换，精度可通过参数控制：

  library(scales)
  x <- 0.2345
  percent(x, accuracy = 0.01)
  # 输出结果：[1] "23.45%"
  

  把accuracy设为0.1时，会输出一位小数的百分比："23.5%"。

• 使用formattable包的percent()函数
  转换后结果仍保留数值属性，可继续参与计算，仅显示为百分比格式：

  library(formattable)
  x <- 0.2345
  p <- percent(x, digits = 2)
  print(p)
  # 输出结果：[1] 23.45%
  # 验证数据类型：
  class(p)
  # 输出结果：[1] "formattable" "numeric"
  

  如需转回普通数值，用as.numeric(p)即可。

内容的提问来源于stack exchange，提问作者ALLAHJOSEPH