1

下表（平均值±标准差）包含将在出版物中呈现的真实数据。如您所见，数据范围非常广泛。使用 R，我将所有数字四舍五入为 3 个有效数字，但我想包括尾随零以及小数点左侧的零作为重要数字，以保持表格整洁。所以基本上我希望小数点两侧的所有数字（包括零）都被认为是重要的，因此无论数字如何，都只打印 3 位数字。这可能吗？我试过signif, round,和sprintf,没有成功。这些结果是使用options()formatCx$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
4

1 回答 1

2

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

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

除了rounding 之外，我们还删除了多余的字符substr

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

或使用sprintf格式化roundded 数字，然后用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")
于 2016-06-20T06:22:08.200 回答