在R中使用marrangeGrob与ggsave调整页码显示位置

我来帮你搞定这个小问题！你已经成功把页码移到了页面底部，但要精准放到右下角，得用grid包的textGrob()来自定义文本的位置和对齐方式，具体操作如下：

• 首先确保你加载了grid包（如果没安装先执行：install.packages("grid")）
• 修改marrangeGrob的bottom参数，用textGrob生成可控的页码文本，核心是设置坐标和对齐规则：

library(ggplot2)
library(gridExtra)
library(grid)

# 先创建几个示例图形
p1 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p2 <- ggplot(mtcars, aes(hp, qsec)) + geom_point()
p3 <- ggplot(mtcars, aes(disp, drat)) + geom_point()

# 生成带右下角页码的组合图
g <- marrangeGrob(list(p1, p2, p3), 
                  nrow=1, ncol=1, 
                  top = NULL,
                  bottom = quote(textGrob(
                    label = paste("page", g, "of", pages),
                    x = 1, y = 0,  # x=1对应页面最右侧，y=0对应页面最底部
                    hjust = 1, vjust = 0,  # 水平右对齐、垂直底部对齐
                    gp = gpar(fontsize = 10)  # 可按需调整字体大小、颜色等
                  )))

# 导出为PDF
ggsave("plots_with_footer.pdf", g)

• 关键参数说明：
  • x=1和y=0：基于页面的相对坐标（范围0-1，0代表左/底部，1代表右/顶部），直接锁定右下角区域
  • hjust=1：让文本的右边缘对齐到x=1的位置，避免页码偏左
  • vjust=0：让文本的底部边缘对齐到y=0的位置，确保页码紧贴页面底部
  • gp=gpar()：可以在这里自定义页码样式，比如color="gray50"设置灰色页码，fontface="italic"设置斜体

这样生成的PDF里，页码就会乖乖待在每个页面的右下角啦！

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