R语言保存PDF保存不全

Question

我在绘制GSEA图的时候，想将图片保存PDF，代码如下：

p <- gseaplot2(gsea_res, geneSetID = 1:5)
p[[1]] <- p[[1]] + scale_color_viridis_d(labels = c("TNFA_SIGNALING_VIA_NFKB","EPITHELIAL_MESENCHYMAL_TRANSITION","PROTEIN_SECRETION","APOPTOSIS","IL2_STAT5_SIGNALING"))+
  geom_hline(yintercept = 0,color = "grey75", linewidth = 0.8, linetype = 2)+
  theme(legend.position = "top", legend.direction = "horizontal")
p[[2]] <- p[[2]] + scale_color_viridis_d()
p[[3]] <- p[[3]] + geom_hline(yintercept = 0, color = "steelblue", linewidth = 0.5, linetype = 2)
p

pdf("gseaplot_M.pdf",width=15,height=5)
print(p)
dev.off()

将width设置10的时候图片被拉长，图例显示不完全
将width设置15的时候图片被拉长，这个时候图例可以显示完全

如何可以保持图片正常比例，调整保存图片的边距

Answer 1

让【宝码香车】来帮你解答，本回答参考DeepSeek编写，并整理提供。
如果还有疑问可以点击头像关注私信或评论。如果答案让您满意，请采纳、点赞、关注，非常感谢！

R语言保存PDF图片不全问题解决方案

您遇到的问题是由于PDF输出尺寸与绘图比例不匹配导致的。以下是几种解决方案：

1. 调整PDF输出尺寸比例

# 尝试更合理的宽高比
pdf("gseaplot_M.pdf", width=12, height=6)  # 2:1的比例通常比较合适
print(p)
dev.off()

2. 使用ggsave自动调整边距

# 使用ggsave可以更智能地处理输出尺寸
library(ggplot2)
ggsave("gseaplot_M.pdf", plot = p, width = 12, height = 6, device = "pdf")

3. 手动调整绘图边距

# 在绘图前设置边距参数
library(ggplot2)
p[[1]] <- p[[1]] + theme(plot.margin = margin(1, 1, 1, 1, "cm"))  # 上右下左边距

pdf("gseaplot_M.pdf", width=10, height=5)
print(p)
dev.off()

4. 使用patchwork包组合图形时控制边距

library(patchwork)
# 组合图形时设置边距
combined_plot <- p[[1]] / p[[2]] / p[[3]] + 
  plot_layout(heights = c(1, 0.5, 0.5)) & 
  theme(plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"))

ggsave("gseaplot_M.pdf", plot = combined_plot, width = 10, height = 8)

5. 使用更高级的PDF设备参数

# 设置PDF设备参数
pdf("gseaplot_M.pdf", 
    width = 10, 
    height = 5, 
    paper = "special",  # 使用自定义尺寸而非标准纸张
    onefile = FALSE)    # 确保所有图形在一个页面

print(p)
dev.off()

建议您先尝试ggsave方法，它通常能自动处理大多数边距问题。如果仍然不满意，再尝试手动调整边距或比例。