以.pdf格式打印输出数据（数据帧/矩阵）以及R

我想打印我的R代码结果，即。pdf文件中的几个数据帧（大约4-5个）和几个绘图（4个绘图），即我想使用一些代码集（我想在末尾运行）或单独的文件（即母代码/核心代码/主代码之外的文件）导出pdf文件中的所有输出（如使用

rmarkdown:：render（“analysis.R”，“pdf\u document”）

。此外，我希望实现：-

a、 我只想打印输出（而不想打印编码）。为此，我发现一些命令很有用，如

#+echo=FALSE

，我正在母代码文件的开头使用/放置这些命令，并运行以下命令（在外部文件中）：-

库（rmarkdown）
渲染（“Analysis.R”，output\u format=“pdf\u document”，output\u file=“Aalysis\u output”，quiet=TRUE）

b、 但是我的表没有格式化，它们被分成许多表（因为它们有点宽，所以行名也在每个表中复制，每个表只有一列——我总共有三列——所以我得到了三个表）

c、 此外，我要删除的每一行输出中都有“##”

另外请注意，目前，我不想使用R Markdown或KnitR…（因为我不想为我的R代码使用.Rmd文件等）。是否有任何方法可以轻松地执行相同的操作-就像我们在C编程中使用的那样-我们打开一个文本文件并开始使用fprinft等编写C的结果/输出。）

下面是我所有的数据集（R数据帧）和绘图（我使用R中的ggplot创建绘图），我希望将其打印在格式良好的pdf文件中

## Printing all the results & plots ##

print(base_result, right = T)   # Base Results

print(DSA_AP, right = T)        # DSA for Drug A vs P
Torn_AP                         # Tornado for Drug A vs P

print(DSA_AQ, right = T)        # DSA for Drug A vs Q
Torn_AQ                         # Tornado for Drug A vs Q

print(DSA_AR, right = T)        # DSA for Drug A vs R
Torn_AR                         # Tornado for Drug A vs R

print(DSA_AS, right = T)        # DSA for Drug A vs S
Torn_AS                         # Tornado for Drug A vs S

我尝试了以下代码以获得结果：-

Set-1 Codes: Issue it’s not printing the tables/data-frames (but plotting all the plots only).

    pdf("MyOutput_12.pdf", paper = "A4")

    print(base_result, right = T)   # Base Results 
    # Issue: It is only coming as a print in the console and similarly for below tables.

    print(DSA_AP, right = T)        # DSA for Drug A vs P
    Torn_AP                         # Tornado for Drug A vs P

    print(DSA_AQ, right = T)        # DSA for Drug A vs Q
    Torn_AQ                         # Tornado for Drug A vs Q

    print(DSA_AR, right = T)        # DSA for Drug A vs R
    Torn_AR                         # Tornado for Drug A vs R

    print(DSA_AS, right = T)        # DSA for Drug A vs S
    Torn_AS                         # Tornado for Drug A vs S

    dev.off()

Set-2 Codes: Now, it’s printing the tables but it is printing one over the previous table or plot i.e. overwriting (below are the codes for printing three datasets and two plots).

    library(gridExtra)

    pdf("MyOutput_14.pdf", paper = "A4")

    grid.table(base_result)

    grid.table(DSA_AP)              # DSA for Drug A vs P
    Torn_AP                         # Tornado for Drug A vs P


    grid.table(DSA_AQ)              # DSA for Drug A vs Q
    Torn_AQ                         # Tornado for Drug A vs Q

    dev.off()

Moreover, in the set-2 the tables are some big and getting truncated i.e. the right part of each table is missing (getting cut in pdf file) -- need to adjust width etc. of tables in the pdf file print.

---

提前谢谢

如果您使用的是Rstudio，一种非常简单的方法是编写脚本，然后点击control+shift+K。这会自动创建一个报告，您可以根据需要选择PDF输出。注意：在引擎盖下，这仍然使用RMarkdown-但您不必自己编写RMD文件，所以这可能没问题？

如果您使用的是Rstudio，一个非常简单的方法是编写脚本，然后点击control+shift+K。这会自动创建一个报告，您可以根据需要选择PDF输出。注意：在引擎盖下，这仍然使用RMarkdown-但您不必自己编写RMD文件，所以这可能没问题？

我发现代码用于“a”和“c”，对于“b”，我现在减少了数据帧（输出表）的列标题和行名称以节省空间/页面，现在我得到了所需的输出。我使用了以下代码：-

knitr::opts_chunk$set(fig.width = 7, fig.height = 5, fig.align = 'left', dpi = 96, echo = F, comment = "", message = F, warning = F)

# For PDF Output
rmarkdown::render("Model_3.3.R", output_format = "pdf_document", output_file = "Output_3.3_01.pdf")

# For HTML Output
rmarkdown::render("Model_3.3.R", output_format = "html_document", output_file = "Output_3.3_01.html")

---

注意：这些代码需要在母代码之外运行，即在单独的文件或R/RStudio控制台中运行。

我发现了用于“a”和“c”的代码，对于“b”，我现在减少了数据帧（输出表）的列标题和行名称，以节省空间/页面，现在我得到了所需的输出。我使用了以下代码：-

knitr::opts_chunk$set(fig.width = 7, fig.height = 5, fig.align = 'left', dpi = 96, echo = F, comment = "", message = F, warning = F)

# For PDF Output
rmarkdown::render("Model_3.3.R", output_format = "pdf_document", output_file = "Output_3.3_01.pdf")

# For HTML Output
rmarkdown::render("Model_3.3.R", output_format = "html_document", output_file = "Output_3.3_01.html")

---

注意：这些代码需要在母代码之外运行，即在单独的文件或R/RStudio控制台中运行。

Hi Dash，感谢您的回复。很高兴知道这一点。但是我只需要（a）输出，目前，它也在打印代码-但是，我知道一种方法可以克服它，在代码文件中使用

rmarkdown:：render（“analysis.R”，“pdf_document”）

和#+Echo=False；（b） 但是主要的问题是表没有格式化（我有一些大表），cloumn被分成3个表。为此，您可以尝试我的

huxtable

包或

kable

包。它们都提供了漂亮的数据帧打印。嗨，Dash，谢谢你的回复。很高兴知道这一点。但是我只需要（a）输出，目前，它也在打印代码-但是，我知道一种方法可以克服它，在代码文件中使用

rmarkdown:：render（“analysis.R”，“pdf_document”）

和#+Echo=False；（b） 但是主要的问题是表没有格式化（我有一些大表），cloumn被分成3个表。为此，您可以尝试我的

huxtable

包或

kable

包。它们都提供了漂亮的数据帧打印。