googleVis 最小化 R markdown 中的文本和表格

googleVis minimizes text and tables in R markdown

我正在尝试使用 R markdown、kable 和 googleVis 制作报告。它几乎可以完美地工作,生成表格和图表。但是,如果我尝试将图表和表格放在 rmarkdown 中,表格和任何不是 header 的文本都会被最小化,使它们难以阅读。

如果我只将表格放在 markdown 文件中,表格的大小就很合适了。我想知道为什么在添加来自 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
```

Pie替换为print(Pie, "chart"):

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

print(Pie, "chart)

这应该可以完成工作