使用R生成每行字体递减且每9行重复的PDF遇问题求助

一、找不到输出PDF的核心原因及解决 #

1. 工作目录不明确
   R默认将输出文件保存在当前工作目录，你可以通过getwd()命令查看当前路径。如果不清楚这个位置，建议直接指定绝对路径保存输出文件，示例：

pdf("C:/你的文件夹路径/output.pdf", width = 8.5, height = 11)

或者先设置工作目录再保存：

setwd("C:/你要保存文件的文件夹路径")
pdf("output.pdf", width = 8.5, height = 11)

2. 设备未正确关闭
   确保dev.off()命令正常执行，隐性错误（比如空行导致的空标签）可能导致PDF设备未关闭。可在dev.off()后添加以下代码确认：

dev.off()
print(dev.list()) # 输出为NULL则说明PDF设备已正常关闭

二、代码优化（适配千行以上长文档） #

原代码循环生成ggplot对象，对千行文档效率极低，且每页仅一行文字浪费空间。以下是优化后的代码，用grid包直接绘制文本，支持每页多行，同时保留字号循环逻辑：

# 加载所需包
library(pdftools)
library(grid)

# 选择输入PDF文件
pdf_path <- file.choose()

# 提取文本并分割成行，过滤空行
pdf_text <- pdf_text(pdf_path)
text_lines <- unlist(strsplit(pdf_text[1], "\n"))
text_lines <- text_lines[text_lines != ""]

# 定义字号循环序列
font_sizes <- c(12, 10, 8, 7, 6, 5, 4, 3, 2)
num_lines <- length(text_lines)
font_size_index <- (seq_len(num_lines) - 1) %% length(font_sizes) + 1
font_sizes_selected <- font_sizes[font_size_index]

# 配置输出PDF（标准A4尺寸）
pdf("output.pdf", width = 8.3, height = 11.7)
# 设置每页显示行数（可按需调整）
lines_per_page <- 50

# 分批次绘制每页内容
for (page in seq(1, num_lines, by = lines_per_page)) {
  page_lines <- page:min(page + lines_per_page - 1, num_lines)
  grid.newpage()
  # 设置页面边距
  pushViewport(viewport(x = 0.1, y = 0.9, width = 0.8, height = 0.8, just = c("left", "top")))
  
  # 绘制当前页所有行
  for (i in seq_along(page_lines)) {
    line_idx <- page_lines[i]
    y_pos <- 1 - (i - 1) * (1 / length(page_lines))
    grid.text(text_lines[line_idx], 
              x = 0, y = y_pos, 
              just = c("left", "top"), 
              gp = gpar(fontsize = font_sizes_selected[line_idx]))
  }
  popViewport()
}

# 关闭PDF设备
dev.off()

三、关键优化点说明 #

• 替换ggplot为grid：直接使用grid包绘制文本，性能提升数倍，适配千行级长文档。
• 分页逻辑优化：每页固定显示多行内容，避免原代码每页仅一行的空间浪费，同时保留字号循环规则。
• 空行过滤：自动移除提取文本中的空行，避免无效绘制。
• 标准A4尺寸：修正原代码的A4尺寸参数（标准A4为8.3×11.7英寸）。

内容的提问来源于stack exchange，提问作者Haley