Есть ли способ создать PDF файл таблицы из R так же, как вы создаете график (т.е. с помощью pdf() или ggsave())? Я понимаю, что есть способы с другими программами (использование sweave и т.д.), Но я хотел бы создать его только с R.
Создать таблицу PDF
Ответ 1
Да, есть возможность разместить текст в графиках и, следовательно, в pdf-устройствах.
Наилучшей оболочкой для этого может быть функция textplot()
в надежном gplots пакете Greg Warnes. Ниже приведено начало раздела примеров справочной страницы:
# show R version information
textplot(version)
# show the alphabet as a single string
textplot( paste(letters[1:26], collapse=" ") )
# show the alphabet as a matrix
textplot( matrix(letters[1:26], ncol=2))
### Make a nice 4 way display with two plots and two text summaries
data(iris)
par(mfrow=c(2,2))
plot( Sepal.Length ~ Species, data=iris, border="blue", col="cyan",
main="Boxplot of Sepal Length by Species" )
plotmeans(Sepal.Length ~ Species, data=iris, barwidth=2, connect=FALSE,
main="Means and 95\% Confidence Intervals\nof Sepal Length by Species")
info <- sapply(split(iris$Sepal.Length, iris$Species),
function(x) round(c(Mean=mean(x), SD=sd(x), N=gdata::nobs(x)),2))
textplot( info, valign="top" )
title("Sepal Length by Species")
reg <- lm( Sepal.Length ~ Species, data=iris )
textplot( capture.output(summary(reg)), valign="top")
title("Regression of Sepal Length by Species")
par(mfrow=c(1,1))
Ответ 2
см. также grid.table
в gridExtra
, используя графику сетки.
Ответ 3
В пакете plotrix также есть функция addtable2plot.
Ответ 4
Я недавно хотел сделать это, но мне не понравился выходной формат grideExtra
или textplot
, поэтому я написал эту функцию, чтобы сделать это в латекс. Это немного хакерская работа, и есть лучшие способы с sweave
или knitr
, но вам может показаться полезным изменить его для ваших целей:
createPDF <- function(xx, name=deparse(substitute(xx))){
require(xtable)
tt <- print(xtable(xx), type='latex')
texfile <- paste0('./reports/', name, '.tex')
cat(
'\\documentclass[12pt]{report}
\\usepackage[landscape]{geometry}
\\date{}
\\begin{document}', tt, '\\end{document}', sep='',
file=texfile
)
## pdflatex from texlive package for linux converts .tex to .pdf
system(paste0('pdflatex ', '-output-directory ./reports ', texfile))
}