r - 在 R 中，如何自动注释保存的每个图形？

Question

我在 R session 中保存的图形和图形通常用于我的文档，我想用工作目录、文件名和日期对它们进行注释。因为我需要硬拷贝我的文档(不要问)，这会让我的生活更轻松。我想我可以在打印前修改 pdf，但实际上我更喜欢直接在 R 中标记数字。

因为大部分时间我用 dev.copy2pdf() 生成图形，我编造了以下小函数:

# annotate PDF copy of the graph produced
copyan <- function( file= "tmp.pdf", cex= 0.75 ) {

  oldpar <- par( mar= c( 0, 0, 0, 0 ), usr= c( 0, 1, 0, 1 ) )
  on.exit( par( oldpar ) )

  par( new= TRUE )
  plot.new()

  # ann is the annotation stamp:
  # current working directory,
  # file name, date and time.
  ann <- paste( getwd(), file, Sys.time(), sep= ", " )
  strh <- strheight( ann, cex= cex )
  strw <- strwidth(  ann, cex= cex )

  # put text in the lower bottom corner,
  # just at the very margin of the plot
  usr1 <- par( "usr" )
  text( usr1[1] + strw/2, usr1[3] + strh/2, ann, cex= cex )

  dev.copy2pdf( file= file )
}

尽管它与我通常生成的图配合得相当好，但也许已经有更好的 OOB 解决方案了？或者，也许，上面的脚本可以改进？

Answer 1

编写您自己的包装函数 dev.copy2pdf是个好主意，我认为你会走很长的路。看功能mtext和 title用于在页边距中放置文本的不同方式。如果那些不能完全满足您的要求，请使用 grconvertX和 grconvertY与 text设置后par(xpd=NA) .在所有情况下，您可能都希望使用 adj参数指定调整而不是计算字符串宽度和高度并将值移动一半。