您可以使用knitr包来完成此操作。工作流程如下：
1.将脚本另存为文件（例如myscript.r）
1.然后运行knitr::stitch('myscript.r')
1.生成的PDF将在本地保存为myscript.pdf。您可以使用browseURL('myscript.pdf')查看它。

您可以使用生成html文件，

knitr::stitch_rhtml('filename.r')

由于.tex文件不容易阅读，但html文件可以在任何浏览器中查看很容易。

请使用以下代码集（您需要根据您的数据集/数据框名称进行修改）。

library(gridExtra)
library(datasets)
setwd("D:\\Downloads\\R Work\\")
data("mtcars") # Write your dataframe name that you want to print in pdf
pdf("data_in_pdf.pdf", height = 11, width = 8.5)
grid.table(mtcars)
dev.off()

谢谢。

对于每个正在寻找简单快速解决方案的人，我建议使用utils中的capture.output（https://www.rdocumentation.org/packages/utils/versions/3.6.2/topics/capture.output）函数。
你只需要1.）捕获你想要运行的任何命令并将其赋给一个变量，2.）然后打印该变量。正如你所看到的，图像可以沿着被打印出来。我上面链接的网页上的例子没有使用markdown。
下面是我的例子与减价（这真的是所有一个需要）：

```{r, echo = F}
# fake data-set
x = rnorm(50, mean = 3.3, sd=1)
y = rnorm(50, mean = 3.1, sd=0.9)
z = rnorm(50, mean = 3.2, sd=1.1)
# create dataframe
df <- data.frame(x, y, z)

# adding a graphic
plot(df$x, df$y)

# create a model as example
linearMod <- lm(y ~ x + z, data=df) 

# all one needs to capture the output!!:
bla <- capture.output(summary(linearMod))
print(bla)

备注：如果你也想打印命令，那也很简单。只要用“warning = F”替换“echo = F”，或者如果你也想打印警告的话，把文本全部删除。

![](https://i.stack.imgur.com/fM8Cu.png)

我遇到了同样的问题，但我意识到我是在R 4.1中工作的，并忽略了使用R 4.2创建knitr的警告。然而，在更新我的R版本后，我也只是得到了一个.tex文件，但当我读取.log文件时，我发现错误“sh：pdflatex：找不到命令。”
我成功地使用了这个建议：
您的系统中是否安装了LaTeX发行版？对于rmarkdown，建议使用tinytex，您需要安装R包，然后安装TinyTex发行版。

install.packages('tinytex')
tinytex::install_tinytex()

确保您不仅安装了软件包，而且还运行了第二个命令tinytex：：install_tinytex（），因为我也犯了这个错误，然后才最终让程序创建一个pdf文件。
下面是我找到这个方法的站点的链接。https://community.rstudio.com/t/knitting-error-pdflatex-command-not-found/139965/3