在使用 Sweave/knitr 时，有没有办法避免 round() 函数？在每个\Sexpr{} 中写round(,2) 真的很烦人。我希望整个文档保留两位小数。
感谢您的帮助
Mac
【问题讨论】：
1.00)？第一个你应该能够通过在你的第一个块中设置 options( digits = 2 ) 来实现。
digits 设置为2，您将得到pi*100 为314，这是一个相当粗略的估计。
在knitr 中，inline 挂钩可用于处理\Sexpr{} 语句的输出。因此，如果您只想在小数点后打印 2 位数字作为内联代码（同时保留整个 digits 选项），您可以这样做：
## First have a look at the default inline hook function
knit_hooks$get("inline")
## Then customize it to your own liking
inline_hook <- function(x) {
if(is.numeric(x)) x <- round(x, 2)
paste(as.character(x), collapse=", ")
}
knit_hooks$set(inline = inline_hook)
【讨论】：
首先，您可能希望使用formatC 而不是round 来获得两位数，即使它们为零。在 Sweave 中没有很好的方法来做到这一点。最好的选择可能是简单地创建一个具有短名称的新函数来执行您想要的格式；像
p <- function(x) {formatC(x, format="f", digits=2)}
这至少节省了一点打字时间：
The answer is $\Sexpr{p(x)}$.
不幸的是，在没有使用新的 Sweave 驱动程序的情况下，我认为没有其他事情可做（也许这是尝试knitr 的另一个原因，它似乎正在快速取得进展）。 Sweave 对 Sexpr 语句中的内容执行此操作，然后将 Sexpr 调用替换为结果。
as.character(eval(parse(text = cmd), envir = .GlobalEnv))
但是，你不能只写一个新版本的as.character；除了它可能以其他意想不到的方式改变行为的问题之外，由于命名空间，它总是调用 base 中的版本，即使全局环境中有另一个版本。
【讨论】：
as.character ) 并被他们忽略。
knitr 的好消息，以及它如何让很多事情变得更容易。希望尽快尝试。感谢您的工作，@Yihui。
如果你读过knitr package中的the motivation，你可能知道我是\Sexpr{}里面最讨厌round()的人。我很久以前就向 R core 建议过 Sweave，但它被忽略了，所以我开始了自己的包。
虽然 Josh O'Brien 的回答绝对正确，但我应该说你真的只需要 options(digits = 2) 和 knitr，并且不需要重置默认的内联挂钩，因为默认挂钩尊重此选项。
【讨论】：