小编Nic*_*ons的帖子

所以基本上我正在做一个物理实验，在我的表格中，我希望我的数据四舍五入到与误差相同的精度，四舍五入为 1 sig fig。

例如，如果我有以下内容：

angle <- c(4, 4.1, 4.2)
angle.error <- c(0.024, 0.3, 0.113)
data <- data.frame(angle,angle.error)

想要我最终得到的是将角度误差四舍五入到 1 sig fig，并将角度四舍五入到相应的小数位数作为角度误差，以给出

angle <- c(4.00, 4.1, 4.2)
angle.error <- c(0.02,0.3,0.1)
data <- data.frame(angle, angle.error)

希望这是有道理的！！这是我们被教导呈现数据的标准方式，因此我很惊讶我发现找到正确的方式来做这件事是多么困难。任何贡献都会很棒！！

编辑：

如果我想把它变成一个 UDR，其中说数据在我的数据框的第 5 列和第 6 列中的错误，我写：

Conv2 <- function(x) {
x[6] <- signif(x[6],1)
exp <- floor(log10(x[6]))
man <- x[6]/10^exp         
x[5] <- round(x[5], -exp)   # Error associated with this line I think
sapply(seq_along(x[5]), function(i) format(x[i,5], nsmall=-exp[i]))

return(x)
}

当我实现它时，我收到错误“FUN(X[[i]], ...) 中的错误：数学函数的非数字参数”