R Sweave：prop.table 的 xtable 中的數字

Question

我正在 R Sweave 上創建一個xtableFtable ，但找不到使用此代碼抑制數字的方法。 我在做什么是假的？ 我讀過，如果您的值不是數字而是因子或字符，則可能會發生這種情況，但是prop.table使它們成為非數字？ 我迷路了...

library(xtable)
a <- ftable(prop.table(table(mtcars$mpg, mtcars$hp), margin=2)*100)
b <- xtableFtable(a, method = "compact", digits = 0)
print.xtableFtable(b, rotate.colnames = TRUE)

我已經嘗試過digits=c(0,0,0,0...)了。

Answer 1

您可以使用options(digits)來控制將打印多少位數字。 嘗試將options(digits = 4)作為代碼的第一行（將4更改為1和22之間您想要的任何值）。 有關更多信息，請參閱?options 。

或在打印前舍入值

a = round(ftable(prop.table(table(mtcars$mpg, mtcars$hp), margin=2)*100), 2)
b = xtableFtable(a, method = "compact")
print.xtableFtable(b, rotate.colnames = TRUE)

Answer 2

xtableFtable的“digits”參數似乎沒有實現（從我的版本開始，它是 1.8.3），因為在玩了半個小時之后似乎沒有任何區別。

在函數文檔中有一個關於這種效果的提示：

不建議用戶更改align 、 digits或align的值。 首先，替代值尚未經過測試。 其次，很可能要確定這些參數的適當值，用戶將不得不調查xtableFtable和/或print.xtableFtable的代碼。

它可能只是從xtable函數（ xtableFtable肯定基於它）作為維護者尚未解決的 TODO xtableFtable 。