grid.table を使用して、データ フレームを pdf ファイルに出力しています。コードの骨組みは以下です。私が持っているtxtファイルには、すべての情報が含まれています。データフレームはこんな感じ
株式終値 前終値 PL ABC 90 80 10 DEF 100 105 -5
テキスト ファイルには 42 の株式と 4 つの列があり、いくつかの見出しが追加され、P&L が追加されます
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 プラス見出し) と下部 11 行 (最後の 10 行の株式名と、0 と P&L 列の合計である最後の行) を切り取っています。 . PDFファイルをズームしても役に立たない