我正在使用 grid.table 将数据框输出到 pdf 文件。代码的骨架如下。我拥有的 txt 文件包含所有信息。数据框看起来像这样
Stock ClosePrc PrevClosePrc PL ABC 90 80 10 DEF 100 105 -5
文本文件有 42 只股票和 4 列 添加一些标题 添加损益表
library(gridExtra)
BOD.Equity <- read.table("Equity.txt", fill = TRUE, nrows = 46)
BOD.Equity[,5] <- (BOD.Equity[,4] - BOD.Equity[,3]) * BOD.Equity[,2] / 100
names(BOD.Equity) <- c("Underlying", "Position", "Close", "Prev Close", "PL")
BOD.Equity[44,5] = sum(BOD.Equity$PL)
BOD.Equity[44,2:4] = 0
pdf(file = "Flash.pdf")
grid.table(BOD.Equity, show.rownames = FALSE)
dev.off()
问题是 PDF 文件仅显示从第 11 号库存到第 10 号库存。换句话说，输出文件从顶部和底部 11 行（最后 10 个股票名称和最后一行是 0 和 P&L 列的总和）截断顶部的 11 行（10 加上标题） . 缩放pdf文件没有帮助