当 R 是有效数字的一部分时，在不丢失尾随零的情况下进行舍入

mod_signif <- function(x,digits) {
   sprintf(paste0('%#.',3,'g'), signif(x,digits))}

> mod_signif(0.129554,3)
[1] "0.130"
> mod_signif(0.0129554,3)
[1] "0.0130"
> mod_signif(0.00129554,3)
[1] "0.00130"
> mod_signif(0.000129554,3)
[1] "0.000130"
> mod_signif(0.0000129554,3)
[1] "1.30e-05"

library(scales)

label_nicely <- function(number, digits){
  
  ## I stole this from the documentation for base::round
  ## Pretty neat, huh?
  round_to <- digits - ceiling(log10(abs(number)))
  
  value <- round(number, round_to)
  
  ## accuracy is expected to be (e.g.) 0.01 rather than, say, 3
  accuracy_arg <- 1 / 10^round_to
  
  ## Construct a labeller within the function run
  labeller <- label_number(accuracy = accuracy_arg)
  
  label <- labeller(value)
  
    return(label)
} 

label_nicely(0.129554,3)
#> [1] "0.130"
label_nicely(0.0000129554, 3)
#> [1] "0.0000130"

R相关问答推荐

R gtsummary tBL_summary，包含分层和两个独立分组变量

从载体创建 pyramid

如何将具有重复名称的收件箱合并到R中的另一列中，而结果不同？

如何从其他前面列中减go 特定列的平均值？

使用lapply的重新定位功能

在特定列上滞后n行，同时扩展框架的长度

R等效于LABpascal(n，1)不同的列符号

为什么观察不会被无功值变化触发？

跨列查找多个时间报告

R如何计算现有行的总和以添加新的数据行

是否有新方法来更改Facet_WRAP(Ggplot2)中条文本的文本 colored颜色 ？

在数据帧列表上绘制GGPUP

将具有坐标列表列的三角形转换为多个多边形

如何删除设置大小的曲线图并添加条形图顶部数字的百分比

R基于变量组合创建新的指标列

使用geom_sf跨越日期线时的闭合边界

如何使用包metaviz更改标签的小数位数？

需要一个函数来在第一行创建一个新变量，然后用新变量替换一个不同的变量(对于多行)

识别部分重复行，其中一行为NA，其重复行为非NA

根据向量对列表元素进行排序