Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/76.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将数据表呈现为PDF文档_R - Fatal编程技术网

R 将数据表呈现为PDF文档

R 将数据表呈现为PDF文档,r,R,我有多个数据表,我需要打印在PDF文档中。HTML文档的工作方式是保留格式 artistTable1.data <- reactive({ df <- artistData.filtered() df <- df[c("old_level", "level", "reason", "rank", "apacDominant")] # names(df) <- c("ARTIST (click for wikip

我有多个数据表,我需要打印在PDF文档中。HTML文档的工作方式是保留格式

    artistTable1.data <- reactive({
         df <- artistData.filtered()
         df <- df[c("old_level", "level", "reason", "rank", "apacDominant")]
         # names(df) <- c("ARTIST (click for wikipedia)","LEVEL", "REASON", paste0("RANK (of ", my.sum(artistData$hasLevel), " ranked artists)"), "RISK FLAG(S)")

         datatable(df, filter = "none", escape = FALSE,
                   rownames = FALSE, caption = "HIGH LEVEL DATA SUMMARY",
                   options = list(columnDefs=list(list(targets = 0:3, class="dt-center")),
                                  paging = FALSE, searching = FALSE, autoWidth = FALSE, lengthChange = FALSE, info = FALSE, ordering = FALSE),
                   class = 'cell-border hover compact')
    })

    output$artistTable1 <- renderDataTable({
         artistTable1.data()
    })

artistTable1.data您的代码对我来说不是现成的,因为您没有包含所需的库。由于这是一个一般的DataTable问题,我将使用帮助页面中生成的日期表(请参见
?data.table

一种方法是使用。下面是一个可以保存在文本文件中的最小可行示例,例如dt.Rnw

\documentclass{article}
\begin{document}
<<dt,results="asis">>=
library(data.table)
library(xtable)
DT = data.table(x=rep(c("b","a","c"),each=3), y=c(1,3,6), v=1:9)
xtable(DT,caption="cap")
@
\end{document}
然后可以将其编译成pdf(dt.pdf),其中包含一个格式良好的表格(显然可以扩展为承载多个表格):


您的代码对我来说不是现成的,因为您没有包含所需的库。由于这是一个一般的DataTable问题,我将使用帮助页面中生成的日期表(请参见
?data.table

一种方法是使用。下面是一个可以保存在文本文件中的最小可行示例,例如dt.Rnw

\documentclass{article}
\begin{document}
<<dt,results="asis">>=
library(data.table)
library(xtable)
DT = data.table(x=rep(c("b","a","c"),each=3), y=c(1,3,6), v=1:9)
xtable(DT,caption="cap")
@
\end{document}
然后可以将其编译成pdf(dt.pdf),其中包含一个格式良好的表格(显然可以扩展为承载多个表格):


谢谢你,塞巴斯蒂安!我有一个RMarkdown文件,它可以为我生成PDF和HTML格式的报告。knitr包使用webshot,但不保留HTML文档的格式。我可以把这个放进RMarkdown吗?谢谢你的耐心,我是一个业余的有光泽的开发人员。我想这是一个不同的问题,这似乎是在这里添加的。好像是你的朋友。谢谢塞巴斯蒂安!我有一个RMarkdown文件,它可以为我生成PDF和HTML格式的报告。knitr包使用webshot,但不保留HTML文档的格式。我可以把这个放进RMarkdown吗?谢谢你的耐心,我是一个业余的有光泽的开发人员。我想这是一个不同的问题,这似乎是在这里添加的。好像是你的朋友。
pdflatex dt.tex