如何設置使用knitr/pander生成的報告中的小數位數？

Question

我知道這是一個相當老的問題，之前已經討論過，但我無法按預期工作。

我有一個降價的文件，我想用knitr和pander產生的.docx報告與兩位小數一致的數字格式，如0.12，3.60，14.00，或163.21爲都內聯和塊輸出。我已閱讀此線程How to avoid using round() in every \Sexpr{}?其中建議pander可以自動執行此操作。但是，它似乎並不適合我。請讓我知道我在這裏錯過了什麼。

腳本：

```{r, echo=FALSE} 
library(knitr) 
opts_chunk$set(echo = FALSE, message = FALSE, results = 'asis') 
``` 

```{r} 
require(pander) 
panderOptions('digits' , 2) #this should do the trick, right? 
``` 

Test 
===== 

Let's produce some test stats: 


```{r} 
model1 = lm(weight~feed, chickwts) 
anova.m1 = anova(model1) 
pander(anova.m1) 
pander(coef(summary(model1))) 
``` 

In-line R codes: "Type of food affects body mass of the chicks 
(F~`r anova.m1$Df[1]`,`r anova.m1$Df[2]`~ = `r anova.m1$F[1]`, p = `r anova.m1$Pr[1]`)." 


```{r} 
FILE <- "Test" 
system(paste0("pandoc -o ", FILE, ".docx ", FILE, ".md")) 
``` 

但結果不是我所期望的（注意小數的範圍幾乎爲0之間的一切，7）：

Answer 1

什麼：

> library(pander) 
> panderOptions('digits', 2) 
> panderOptions('round', 2) 
> panderOptions('keep.trailing.zeros', TRUE) 
> pander(anova.m1) 

---------------------------------------------------------- 
       Df Sum Sq Mean Sq F value Pr(>F) 
--------------- ---- -------- --------- --------- -------- 
    **feed**  5 231129 46226  15  0  

**Residuals** 65 195556 3009      
---------------------------------------------------------- 

Table: Analysis of Variance Table 

> pander(coef(summary(model1))) 

---------------------------------------------------------------- 
         Estimate Std. Error t value Pr(>|t|) 
------------------- ---------- ------------ --------- ---------- 
    **(Intercept)**  323.58  15.83  20.44  0.00 

**feedhorsebean** -163.38  23.49  -6.96  0.00 

    **feedlinseed** -104.83  22.39  -4.68  0.00 

**feedmeatmeal**  -46.67  22.90  -2.04  0.05 

    **feedsoybean**  -77.15  21.58  -3.58  0.00 

**feedsunflower**  5.33  22.39  0.24  0.81 
---------------------------------------------------------------- 

關於直列[R塊：也叫pander有或塗抹一些掛鉤自動做到這一點。

---

更新：有沒有必要在這裏設置的位數爲你設置的小數位數後，SRY：

> library(pander) 
> panderOptions('round', 2) 
> panderOptions('keep.trailing.zeros', TRUE) 
> model1 = lm(weight~feed, chickwts) 
> anova.m1 = anova(model1) 
> pander(anova.m1) 

---------------------------------------------------------- 
       Df Sum Sq Mean Sq F value Pr(>F) 
--------------- ---- -------- --------- --------- -------- 
    **feed**  5 231129 46226  15.36  0  

**Residuals** 65 195556 3009      
---------------------------------------------------------- 

Table: Analysis of Variance Table 

> pander(coef(summary(model1))) 

---------------------------------------------------------------- 
         Estimate Std. Error t value Pr(>|t|) 
------------------- ---------- ------------ --------- ---------- 
    **(Intercept)**  323.58  15.83  20.44  0.00 

**feedhorsebean** -163.38  23.49  -6.96  0.00 

    **feedlinseed** -104.83  22.39  -4.68  0.00 

**feedmeatmeal**  -46.67  22.90  -2.04  0.05 

    **feedsoybean**  -77.15  21.58  -3.58  0.00 

**feedsunflower**  5.33  22.39  0.24  0.81 
---------------------------------------------------------------- 

---

進一步更新：爲什麼它與第一次運行的第二個表中的集合digits一起工作：

> format(c(0.01, 15.36), digits = 2) 
[1] " 0.01" "15.36" 
> format(15.36, digits = 2) 
[1] "15" 

和pandoc.table以列爲基礎運行format，以便列中的數字具有基於用戶請求的相同小數位數（即使尾隨零也設置爲TRUE）。

請打開在GitHub上的問題，如果這看起來像一個bug：https://github.com/Rapporter/pander

Answer 2

有你試用

options(scipen=1, digits=2) 

如http://yihui.name/knitr/demo/output/？