使用tableGrob和gridarrange防止不必要的文本显示
我有这个PDF文档。它动态创建3个页面。每页有一个表格和两个图表。但在表格下方,您将看到与表格相关的文本。如何不显示该文本 多谢各位 下表内容如下:使用tableGrob和gridarrange防止不必要的文本显示,r,ggplot2,r-markdown,R,Ggplot2,R Markdown,我有这个PDF文档。它动态创建3个页面。每页有一个表格和两个图表。但在表格下方,您将看到与表格相关的文本。如何不显示该文本 多谢各位 下表内容如下: FALSE TableGrob (1 x 1) "arrange": 1 grobs 20 FALSE z cells name grob FALSE 1 1 (1-1,1-1) arrange gtable[colhead-fg] FALSE FALSE ewpage 21 代码如下: --- title: "Untitled" output:
FALSE TableGrob (1 x 1) "arrange": 1 grobs
20
FALSE z cells name grob
FALSE 1 1 (1-1,1-1) arrange gtable[colhead-fg]
FALSE
FALSE ewpage
21
代码如下:
---
title: "Untitled"
output: pdf_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown
```{r pressure, echo=FALSE, comment = NA, message= FALSE, warning = FALSE}
library(gridExtra)
library(gtable)
library(grid)
library(ggplot2)
for(i in 1:3){
data = rnorm(1000)
library(gridExtra)
q = rbind(
round(quantile(data),1),
round(quantile(data),1),
round(quantile(data),1)
)
t = tableGrob(q)
t$widths <- unit(rep(1 / ncol(t), ncol(t)), "npc")
t$heights <- unit(rep(1 / nrow(t), nrow(t)), "npc") # new
dat= data.frame(x= c(1,2,3), y = c(1,2,3))
p <- ggplot(dat, aes(x = x, y = y)) + geom_point() + geom_line()
print(grid.arrange(t,p,p, nrow = 1))
cat("\newpage")
}
```
---
标题:“无标题”
输出:pdf\U文件
---
```{r设置,include=FALSE}
knitr::opts_chunk$set(echo=TRUE)
```
##降价
```{r压力,echo=FALSE,comment=NA,message=FALSE,warning=FALSE}
图书馆(gridExtra)
图书馆(gtable)
图书馆(网格)
图书馆(GG2)
(我在1:3中){
数据=rnorm(1000)
图书馆(gridExtra)
q=rbind(
四舍五入(分位数(数据),1),
四舍五入(分位数(数据),1),
四舍五入(分位数(数据),1)
)
t=表B(q)
t$widths删除print()
会阻止TableGrob等输出。删除cat(“\newpage”)
会阻止“ewpage”输出。@bdemarest那么您如何使其进入循环中的新页面我正在尝试在循环中放置一个分页符,以便在我的机器上在单独的页面上打印3个绘图,在删除print()
和删除cat(“\newpage”)后,您的代码将无误地编织成pdf
。三个绘图分别放在一个单独的页面上。我想每次调用grid.arrange()
时,都会创建一个新页面。这在我的机器上不会发生。不会创建新页面