在R中将文本框保存为pdf

Question

我正在尝试在R中创建一个项目符号类型列表，并希望将其保存为pdf，这成功地导致在窗口上打印项目符号列表：

 a = paste0("Starting portfolio value: $", prettyNum(1000000,big.mark=",",scientific=F))
 b = "Inflation assumptions of 3% annually"
 c = "Average annual returns: 6%"
 d ="Average annual volatility: 7%"

 text = paste(a, "\n", b, "\n", c, "\n", d, "\n")

 library(grid)
 grid.points(x = rep(10,4), y = c(295, 318, 338, 360), pch = 15, gp = gpar(cex = 0.5))
 grid.text(text, x = 0.05, hjust = 0, gp = gpar(fontsize = 11))

但是，我希望能够将其保存为pdf，以及同一页面上的其他两个图表。

任何方式这样做？谢谢！

Answer 1

尝试这样的事情：

a = paste0("Starting portfolio value: $", prettyNum(1000000,big.mark=",",scientific=F))
b = "Inflation assumptions of 3% annually"
c = "Average annual returns: 6%"
d ="Average annual volatility: 7%"

pdf('out.pdf',width=5,height=5)
plot(NA, xlim=c(0,5), ylim=c(0,5), bty='n',
     xaxt='n', yaxt='n', xlab='', ylab='')
text(1,4,a, pos=4)
text(1,3,b, pos=4)
text(1,2,c, pos=4)
text(1,1,d, pos=4)
points(rep(1,4),1:4, pch=15)
dev.off()

这是近似输出：