有效数字百分比答案

【问题标题】：percentage with significant digits有效数字百分比
【发布时间】：2016-01-21 21:08:59
【问题描述】：

我注意到，如果您要打印相同数量级的百分比向量，percent() 可以很好地获得三位有效数字。

> library(scales)
> percent(c(0.123,0.234))
[1] "12.3%" "23.4%"

>percent(c(0.00123,0.00234))
[1] "0.123%" "0.234%"

但如果您的百分比是不同数量级的，percent 将选择适用于最大元素的精度——在我的用例中没有帮助。

> percent(c(0.123,0.00234))
[1] "12.3%" "0.2%"

当每个百分比的数量级不同时，如何获得三个有效数字？

【问题讨论】：

【解决方案1】：

您可以使用sapply() 分别考虑每个元素。

> sapply(c(0.123,0.00234), percent)
[1] "12.3%"  "0.234%"

【讨论】：

【解决方案2】：

percent 最多只能看到 3 位数字，但如果您想要更多数字，您可以这样做：

> test <- c(123.46644, 139.23424646)
> test <- paste(test*100, "%", sep = "")
> test
[1] "12346.644%"    "13923.424646%"

【讨论】：