3

次の例を考えます。

library(pander)
tableAbs <- Titanic[1, 1, , ]
tablePct <- round(prop.table(tableAbs) * 100, 2)
table <- cbind(tableAbs, tablePct)
pander(table)

----------------------------------
  &nbsp;     No   Yes   No    Yes 
----------- ---- ----- ----- -----
 **Child**   0     5     0   2.78 

 **Adult**  118   57   65.56 31.67
----------------------------------

そのパーセンテージの末尾のゼロをすべて保持したい0ので、次のようにします。

panderOptions("keep.trailing.zeros", TRUE)
pander(table)

------------------------------------
  &nbsp;      No    Yes   No    Yes 
----------- ------ ----- ----- -----
 **Child**   0.00  5.00  0.00  2.78 

 **Adult**  118.00 57.00 65.56 31.67
------------------------------------

問題は、絶対周波数でさえ.00それらに付随していることです。これらは自然数であるため、末尾のゼロを保持することはほとんど意味がありません。どうすればいいですか？

4

1 に答える 1

2

コメントの rawr に感謝します。

format末尾のゼロを保持するために使用できます。characterこれにより、テーブルの寸法を維持しながら、丸められた値が に変換されます。

tablePct <- format(round(prop.table(tableAbs) * 100, 2))

編集

xtabsクラスで問題なく動作するようです

mtcars$am[mtcars$vs == 1]  <- 0
x <- xtabs(~ am + vs, data=mtcars)
tab <- format(round(100*prop.table(x), 2))
tab <- cbind(x, tab)
pander(tab)

---------------------------
&nbsp;   0   1    0     1  
------- --- --- ----- -----
 **0**  12  14  37.50 43.75

 **1**   6   0  18.75 0.00 
---------------------------
于 2015-05-29T21:31:42.077 に答える