So fügen Sie eine Zeichnung an eine vorhandene PDF-Datei an

Ich anfügen möchten ein Grundstück an eine bestehende pdf-lange nach dev.off() genannt worden*. Nach dem Lesen der pdf() Hilfe-Datei und nach dem Lesen der Q & A hier und hierich bin mir ziemlich sicher, dass es nicht getan werden kann, in R. Aber, vielleicht einige von Euch schlauer Menschen, die eine Lösung, dass ich nicht in der Lage zu finden.

pdf("Append to me.%03d.pdf",onefile=T)
plot(1:10,10:1) #First plot (page 1)
dev.off()
pdf("Append to me.%03d.pdf",onefile=T)
plot(1:10,rep(5,10)) #Want this one on page 2
dev.off()

*Dies ist nicht ein Duplikat der Fragen, die weiter oben verlinkt, da möchte ich Anhängen zu einer pdf-Datei nachdem die pdf-Gerät geschlossen wurde.

InformationsquelleAutor der Frage D. Woods | 2012-11-07

Könnten Sie recordPlot zu speichern, die jede Handlung in einen listdann schreiben Sie alles in eine pdf-Datei am Ende mit replayPlot. Hier ist ein Beispiel:

num.plots <- 5
my.plots <- vector(num.plots, mode='list')

for (i in 1:num.plots) {
    plot(i)
    my.plots[[i]] <- recordPlot()
}
graphics.off()

pdf('myplots.pdf', onefile=TRUE)
for (my.plot in my.plots) {
    replayPlot(my.plot)
}
graphics.off()

InformationsquelleAutor der Antwort Matthew Plourde

Wenn Sie bereit sind, installieren Sie das kleine, Kostenlose, Plattform-unabhängige pdftk utililty, Sie könnte verwenden Sie einen system-Aufruf aus R, um es Nähen Sie alle Ihre zahlen zusammen:

## A couple of example pdf docs
pdf("Append to me.1.pdf")
plot(1:10,10:1)
dev.off()

pdf("Append to me.2.pdf")
plot(1:10,rep(5,10)) 
dev.off()

## Collect the names of the figures to be glued together
ff <- dir(pattern="Append to me")
## The name of the pdf doc that will contain all the figures
outFileName <- "AllFigs.pdf"

## Make a system call to pdftk
system2(command = "pdftk",
        args = c(shQuote(ff), "cat output", shQuote(outFileName)))

## The command above is equiv. to typing the following at the system command line
## pdftk "Append to me.1.pdf" "Append to me.2.pdf" cat output "AllFigs.pdf"

InformationsquelleAutor der Antwort Josh O'Brien

Dies ist schrecklich hacky und wahrscheinlich täuscht meiner begrenzten UNIX-shell-fu, aber es funktioniert für mich auf einem Fedora 17 box mit dem pdfjam Paket installiert (nicht ein R Paket, aber von der YUM-repos)

pdf("pdf1.pdf")
plot(1:10)
dev.off()

pdf("| pdfjoin --outfile \"pdf2.pdf\" && pdfjoin pdf1.pdf pdf2.pdf --outfile pdf1.pdf && rm pdf2.pdf")
plot(10:1)
dev.off()

Die Ausgabe in R:

> pdf("| pdfjoin --outfile \"pdf2.pdf\" && pdfjoin pdf1.pdf pdf2.pdf --outfile pdf1.pdf && rm pdf2.pdf")## && pdfunite joined.pdf tmp.pdf joined.pdf && rm tmp.pdf")
> plot(10:1)
> dev.off()
          ----
  pdfjam: This is pdfjam version 2.08.
  pdfjam: Reading any site-wide or user-specific defaults...
          (none found)
  pdfjam: No PDF/JPG/PNG source specified: input is from stdin.
  pdfjam: Effective call for this run of pdfjam:
          /usr/bin/pdfjam --fitpaper 'true' --rotateoversize 'true' --suffix joined --outfile pdf2.pdf -- /dev/stdin - 
  pdfjam: Calling pdflatex...
  pdfjam: Finished.  Output was to 'pdf2.pdf'.
          ----
  pdfjam: This is pdfjam version 2.08.
  pdfjam: Reading any site-wide or user-specific defaults...
          (none found)
  pdfjam: Effective call for this run of pdfjam:
          /usr/bin/pdfjam --fitpaper 'true' --rotateoversize 'true' --suffix joined --outfile pdf1.pdf -- pdf1.pdf - pdf2.pdf - 
  pdfjam: Calling pdflatex...
  pdfjam: Finished.  Output was to 'pdf1.pdf'.
null device 
          1

Grundsätzlich pdfjoin wird die Eingabe von stdin wenn nur der input-Datei, damit ich pipe die Ausgabe von pdf() zu den pdfjoin Programm und geben Sie die Ausgabedatei mit der --outfile argument. Dann mit && ist, verbinden Sie den originalen pdf1.pdf mit der pdf2.pdf nur erstellt, der angibt, dass die PDF-Ausgabe ist pdf1.pdfdie Namen der ursprünglichen PDF-Datei.

InformationsquelleAutor der Antwort Gavin Simpson

0

Ich fand diese ausgezeichnete Arbeit, die vor kurzem (versucht nicht zu behaupten, es als mein eigenes)

https://jonkimanalyze.wordpress.com/2014/07/24/r-compile-png-files-into-pdf/

Nicht ganz das, was der OP gefragt wurde, aber der Grund, warum ich es mag ist, dass ich oft ziemlich dicht streudiagramme und andere Grundstücke, die reagieren nicht besonders gut auf Fenster-Größe ändern etc. in einem pdf-Dokument. Allerdings muss ich produzieren mehrseitige Ausgabe. Also, wenn die Grundstücke sind Daten-Dichte ich Sie Rendern als .das PNG-Format und verwenden Sie dann die oben beschriebene Funktion zu rekombinieren am Ende.
```
merge.png.pdf <- function(pdfFile, pngFiles, deletePngFiles=FALSE) {

  pdf(pdfFile)

  n <- length(pngFiles)

  for( i in 1:n) {


    pngFile <- pngFiles[i]

    pngRaster <- readPNG(pngFile)

    grid.raster(pngRaster, width=unit(0.8, "npc"), height= unit(0.8, "npc"))

    if (i < n) plot.new()

  }

  dev.off()

  if (deletePngFiles) {

    unlink(pngFiles)
  }

}
```
InformationsquelleAutor der Antwort Pascoe

-2

pdf("myFile.pdf",onefile=T)

plot(1:10,10:1) #First plot (page 1)
plot(1:10,rep(5,10)) #Want this one on page 2

dev.off()

InformationsquelleAutor der Antwort MCH

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.