显示科学计数法 [papaja]

Question

我的代码块中有很多数字：

a <-  1.234 * 10^36

然后我在文档中内联打印：

What does this look like when knitted: `r a`

在标准 .Rmd 中编织它会产生预期的 1.234 x 10^36

但在 papaja 模板中编织会产生“计算格式”与 1.234e+36

无论如何，是否可以自动进行格式化，而不必求助于像 这里给出的解决方案？

Answer 1

您可以使用函数papaja::apa_num()：

> papaja::apa_num(1.234 * 10^36, format = "e")
[1] "$1.23 \\times 10^{36}$"

Answer 2

您可以使用 knitr 强制格式化。

knitr::knit_hooks$set(inline = function(x) {
  knitr:::format_sci(x, 'md')
})

这会将外观格式化为如下所示（已使用如上所述的代码）。

我不喜欢关于x的空间分布不均匀，所以我发现捕获了函数（和支持函数）并且能够得到：

对于前者，我按照您的指示使用。不过，这不是您将用于第二个选项的内容。

`r a`

您不需要调用 hooks$set，但需要调用修改后的函数并使用 $ 封装该调用。

您可以使用 knitr 强制格式化。
knitr::knit_hooks$set(inline = function(x) {
  knitr:::format_sci(x, 'md')
})

这会将外观格式化为如下所示（已使用如上所述的代码）。
 
我不喜欢关于x的空间分布不均匀，所以我发现捕获了函数（和支持函数）并且能够得到：
 
对于前者，我按照您的指示使用。不过，这不是您将用于第二个选项的内容。
`r a`

您不需要调用 hooks$set，但需要调用修改后的函数并使用 $ 封装该调用。
r format_sci(a)`$

以下是产生第二个选项的稍加修改的 knitr 函数：

```{r doAsISay}

# scientific notation in TeX, HTML and reST
format_sci_one = function(
  x, format = 'latex', times = getOption('knitr.inline.times', '\\times ')
) {

  if (!(class(x)[1] == 'numeric') || is.na(x) || x == 0) return(as.character(x))

  if (is.infinite(x)) {
    return(
      switch(format, latex = {
        sprintf("%s\\infty{}", ifelse(x < 0, "-", ""))
      }, html = {
        sprintf("%s∞", ifelse(x < 0, "-", ""))
      }, as.character(x)))
  }

  if (abs(lx <- floor(log10(abs(x)))) < getOption('scipen') + 4L)
    return(round_digits(x)) # no need sci notation

  b = round_digits(x / 10^lx)
  b[b %in% c(1, -1)] = ''

  switch(format, latex = {
    sci_notation('%s%s10^{%s}', b, times, lx)
  },
  html = sci_notation('%s%s10<sup>%s</sup>', b, ' × ', lx),
  md   = sci_notation('%s%s10^%s^', b, '× ', lx),
  rst  = {
    # if AsIs, use the :math: directive
    if (inherits(x, 'AsIs')) {
      s = sci_notation('%s%s10^{%s}', b, times, lx)
      sprintf(':math:`%s`', s)
    } else {
      # This needs the following line at the top of the file to define |times|
      # .. include <isonum.txt>
      sci_notation('%s%s10 :sup:`%s`', b, ' |times| ', lx)
    }
  }, as.character(x))
}

# vectorized version of format_sci_one()
format_sci = function(x, ...) {
  if (inherits(x, 'roman')) return(as.character(x))
  vapply(x, format_sci_one, character(1L), ..., USE.NAMES = FALSE)
}

sci_notation = function(format, base, times, power) {
  sprintf(format, base, ifelse(base == '', '', times), power)
}

round_digits = function(x) {
  if (getOption('knitr.digits.signif', FALSE)) format(x) else {
    as.character(round(x, getOption('digits')))
  }
}
```

或者，您可以在下载的 knitr 包中更改此设置。 （不过，我之前对下载的软件包进行了修改，而不是 knitr。）

仅供参考，这是经过测试的，图像来自 knitted RMD，使用输出设置为 output: papaja ::apa6_pdf。