2017-02-24 45 views
2

我試圖用R markdown,kable和googleVis做出報告。它幾乎可以很好地工作,製作表格和圖表。但是,如果我嘗試將圖表和表格放入rmarkdown中,則表格和任何不是標題的文本都會被最小化,從而使其難以閱讀。googleVis最小化R標記中的文本和表格

如果我只將表格放在降價文件中,表格是一個很好的大小。我想知道爲什麼添加googleVis圖表時爲什麼表格和文本會最小化,以及我如何防止這種情況發生。

以下是一個可重複的代碼:

```{r results='asis'} 
    values1 <- c(36, 9, 21, 16) 
    values2 <- c(5, 5, 0 ,6) 
    variables <- c("Total", "Var1", "Var2", "Var3") 

    table <- data.frame(variables, values1, values2) 
    kable(table, caption = "example table") 
``` 

```{r results='asis'} 
    values3 <- c(1, 3, 0, 9) 
values4 <- c(4, 6, 3 ,2) 
pievariables <- c("ISV", "TAO", "PRR", "AV") 

piechart <- data.frame(pievariables, values3, values4) 

Pie <- gvisPieChart(piechart[,1:2], options=list(title='example pie', 
                 width = 400, 
                 height = 400, 
                 pieSliceText='label')) 
Pie 
``` 

回答

0

取代Pieprint(Pie, "chart")

Pie <- gvisPieChart(piechart[,1:2], options=list(title='example pie', 
               width = 400, 
               height = 400, 
               pieSliceText='label')) 

print(Pie, "chart) 

本應該做的工作

+0

非常感謝你,這確實解決問題。你能否解釋一下,如果你指定「圖表」,並且如果你只是寫「餅圖」,爲什麼它會起作用,所以我知道它爲什麼會發生? – Denise

+0

非常歡迎。問題是,如果你在打印函數中添加「圖表」,那麼只有HTML對象的圖表組件被寫入,否則你會加載HTML的所有內容(標題,圖表,標題和頁腳),這實際上導致了knitr的問題。 但是,或者你也可以使用gvistable來做比kable更多的花式表。在你的情況:print(gvisTable(table),「chart」) 希望這會有所幫助。 – Codutie

+0

謝謝你澄清。我現在看到,使用頁眉和頁腳爲圖表創建了一個新的html頁面(和)。這會造成一些麻煩。再次,非常感謝。 – Denise