如何用R生成仅含文本、无边缘的TIFF文件？

方法一：调整ggplot2参数消除边距 #

你之前的代码用theme_void()仍会保留默认边距，通过额外调整主题和坐标参数可以彻底清除：

library(ggplot2)

plt <- ggplot() +
  geom_text(aes(x = 0, y = 0, label = "test")) +
  theme_void() +
  # 移除所有绘图边距
  theme(plot.margin = margin(0, 0, 0, 0, "pt")) +
  # 关闭坐标范围自动扩展，精准包裹文本
  coord_cartesian(xlim = c(-0.1, 0.1), ylim = c(-0.1, 0.1), expand = FALSE)

ggsave(plt, filename = "test_ggplot.tif", bg = "transparent", 
       width = unit(1, "in"), height = unit(0.2, "in"), dpi = 300)

• plot.margin = margin(0,0,0,0,"pt")：彻底清除画布四周的空白边距
• coord_cartesian(expand = FALSE)：禁止ggplot自动扩展坐标范围
• 手动设置width和height：根据文本实际大小调整，确保刚好容纳内容

方法二：用基础绘图系统精准控制 #

基础绘图可以直接定义画布尺寸，完全消除多余边缘：

# 打开TIFF设备，按文本尺寸设置宽高（单位：像素）
tiff("test_base.tif", width = 100, height = 30, units = "px", res = 300, bg = "transparent")

# 关闭所有默认边距和坐标扩展
par(mar = c(0, 0, 0, 0), xaxs = "i", yaxs = "i")
# 创建空绘图，不显示任何默认元素
plot(0, 0, type = "n", xlab = "", ylab = "", axes = FALSE, xlim = c(0,1), ylim = c(0,1))

# 在画布中心添加文本
text(x = 0.5, y = 0.5, labels = "test")

# 关闭绘图设备
dev.off()

• par(mar = c(0,0,0,0))：移除所有绘图区域边距
• xaxs = "i"/yaxs = "i"：使用精确的坐标范围，不自动留白

方法三：用grid包匹配文本实际尺寸 #

grid包可以自动获取文本尺寸，让画布完全贴合内容：

library(grid)

# 打开TIFF设备
tiff("test_grid.tif", width = 100, height = 30, units = "px", res = 300, bg = "transparent")

# 创建文本对象
text_grob <- textGrob("test", x = 0.5, y = 0.5, gp = gpar(fontsize = 12))

# 获取文本的实际宽高
text_width <- grobWidth(text_grob)
text_height <- grobHeight(text_grob)

# 设置视图端口，完全匹配文本尺寸
pushViewport(viewport(width = text_width, height = text_height))

# 绘制文本
grid.draw(text_grob)

# 关闭设备
dev.off()

内容的提问来源于stack exchange，提问作者Jean-Luc Dupouey