R-打印重要数字，无论小数点如何

Question

下表（平均值±SE）包含将在出版物中介绍的真实数据。如您所见，数据范围很广。使用R，我将所有数字舍入3个重要数字，但我想在小数点的左侧包括尾随的零以及零，以使桌子整齐。因此，基本上，我希望所有数字在小数点的任一侧（包括零）都被认为是重要的，因此无论数字如何，都只能打印3位数字。这可能吗？我尝试过signif，round，sprintf，options()和formatC，没有成功。这些结果是使用x$summary = paste(signif(x$Value, digits=3), "u00b1", signif(x$se, digits=3))

获得的

35.2 ± 3.13 > this is good
124 ± 14.8 > this is good
196 ± 6.53 > this is good
1.34 ± 0.0505 > I would like this to become 1.34 ± 0.05
0.0443 ± 0.00386 > I would like this to become 0.04 ± 0.00
123 ± 0.0067 > I would like this to become 123 ± 0.01

Answer 1

我们可以尝试使用gsubfn。在模式中，我们选择包括点（[0-9.]+）的数字，然后首先转换为numeric（as.numeric(x)），然后round替换。

library(gsubfn)
gsubfn("[0-9.]+", ~round(as.numeric(x), 2), v1)

除了round之外，我们还使用substr

删除额外的字符

gsubfn("[0-9.]+", ~substr(round(as.numeric(x), 3), 1, 4), v1)

或使用sprintf格式化round DED数字，然后用sub替换额外的尾随零。

sub("\.0+\s|0\s", " ", gsubfn("[0-9.]+", ~sprintf("%.2f", 
        round(as.numeric(x), 2)), v1))
#[1] "35.2 ± 3.13" "124 ± 14.80" "196 ± 6.53"  "1.34 ± 0.05" "0.04 ± 0.00" "123 ± 0.01" 

数据

v1 <- c("35.2 ± 3.13", "124 ± 14.8", "196 ± 6.53", "1.34 ± 0.0505", 
                    "0.0443 ± 0.00386", "123 ± 0.0067")