用有效数字呈现xtable

Question

我希望能够在自动运行的代码中呈现xtable，即不通过复制和粘贴，同时控制重要数字的数量。我知道在标准绘图设备上呈现xtable的唯一方法是使用grid.table，但该方法忽略了位指令，并绘制了所有可用的数字。下面是一个代码示例。有什么建议吗？

library(xtable)
library(gridExtra)

x = rnorm(100)
y = x + rnorm(100)
m = lm(y ~ x)

print(xtable(m)) #too many decimal places
print(xtable(m, digits = 2)) #this works
grid.table(xtable(m, digits=2)) #this doesn't!!!

这里的建议似乎没有一个对自动呈现有用：R: rendering xtable

Answer 1

如果将所有内容转换为字符串，则应该能够完成以下工作：

x <- xtable(m)
x[] <- lapply(x, sprintf, fmt = "%0.2f")
grid.table(x)

​

​

Answer 2

我不确定您的最后一个绘图设备，但出于某些目的，您可以跳过所有的xtable：

library("broom")
library("gridExtra")
x = rnorm(100)
y = x + rnorm(100)
m = lm(y ~ x)
DF <- broom::tidy(m)
DF[,2:4] <- round(DF[,2:4], 2)
DF[,5] <- format(DF[,5], scientific = TRUE, digits = 4)
grid.table(DF)

确保您有最新的gridExtra。您还可以通过主题(主题上有一个小片段)来非常详细地控制表的外观。