r - R为频率的pdf输出添加标题

Question

所以这段代码运行没有错误并创建一个频率的pdf，但不会给我任何高于频率的文本。此外，这可能比您需要的库更多。我一直在摆弄一些东西，我不记得在哪里。

我尝试将标题添加为：

grid.text
grid.draw
grid.table

他们都没有工作。

library(gtable, grid, gridExtra)
mpg <- freq(mtcars$mpg)


pdf("mtcars.pdf", height=11, width=8.5)
  title <- "Miles per gallon"

  grid.text(title)
  grid.table(mpg)
dev.off() 

有谁知道如何在频率输出之上的 pdf 中添加标题？或者至少有一些解决方法可能会奏效？谢谢。

标签： r

Answer 1

问题是您在标题上打印表格。因此，如果您为标题指定坐标，则可以对其进行调整：

library(gtable, grid, gridExtra)
mpg <- Freq(mtcars$mpg)


pdf("mtcars.pdf", height=11, width=8.5)
title <- "Miles per gallon"

grid::grid.newpage()
grid::grid.text(title,x = (0.5), y = (0.6))
grid.table(mpg)
dev.off()