如何在R语言中裁剪图片左侧区域？（superheat绘图场景）

• 调整superheat绘图参数（优先方案）
  superheat包自带控制左侧空白的参数left.pad，默认值通常较大，直接调小这个参数就能在绘图时减少左侧空白，无需后期裁剪。示例代码：

  library(superheat)
  # 假设你的数据是data，调整left.pad为更小的值，比如2
  superheat(data, left.pad = 2)
  

  可以根据实际空白大小逐步调整left.pad的数值，直到左侧空白符合需求。

• 后期裁剪已生成的图片
  如果已经生成了带空白的图片，可使用magick包精准裁剪左侧区域，避免内容丢失。示例代码：

  library(magick)
  # 读取图片
  img <- image_read("你的图片路径.png")
  # 裁剪左侧空白：格式为"宽x高+左偏移+上偏移"，这里+50表示从左侧去掉50像素，可按需调整
  cropped_img <- image_crop(img, "1000x800+50+0")
  # 保存裁剪后的图片
  image_write(cropped_img, "裁剪后的图片.png")
  

• 避免ggsave居中裁剪的技巧
  用ggsave保存时，若想保留完整内容同时缩小空白，可结合调整绘图的边距。先通过grid::grid.grab()把superheat图转为可调整的对象，再调整边距：

  library(grid)
  library(ggplot2)
  # 绘制superheat图并抓取为grid对象
  p <- superheat(data)
  g <- grid.grab()
  # 转为ggplot对象并调整左侧边距，-20表示向左缩减20磅边距，可按需修改
  ggplot() + annotation_custom(g) + theme(plot.margin = margin(0, 0, 0, -20, "pt"))
  # 保存图片
  ggsave("调整后的图.png", width = 8, height = 6)
  

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