如何在R绘图中自动截断长文本并适配图像完整显示？

针对长文本无法在300×200像素图像中完整显示的问题，提供以下几种实用方法：

方法1：自动换行显示长文本 #

利用strwrap()函数将长文本按指定宽度拆分成多行，再传递给text()函数，让文本自动换行，避免超出图像范围。

修改后的代码示例：

library(raster) 
myJPG <- stack("images/1.jpg")  # 300×200像素的图像
plotRGB(myJPG)  

vt <- rep(1:100)
vt <- paste(vt, collapse = ' ')

# 将文本按适合图像宽度的字符数拆分（可根据实际显示效果调整width值）
wrapped_text <- strwrap(vt, width = 30)
# 用换行符连接成多行文本
multi_line_text <- paste(wrapped_text, collapse = "\n")

text(x = 150, y = 70,
     labels = multi_line_text,
     adj = c(0.5,0.5),
     cex = 1,
     col = "white")

方法2：根据图像宽度自动截断文本 #

如果不需要换行，只想保留图像内能容纳的部分文本，可先计算图像宽度对应的字符数，再截断文本并添加省略号标识。

代码示例：

library(raster) 
myJPG <- stack("images/1.jpg")
plotRGB(myJPG)  

vt <- rep(1:100)
vt <- paste(vt, collapse = ' ')

# 按图像宽度估算可容纳的字符数（cex=1时，单个字符约占6像素，可根据字体微调）
max_chars <- floor(300 / 6)
# 截断文本并添加省略号
truncated_text <- paste0(substr(vt, 1, max_chars), "...")

text(x = 150, y = 70,
     labels = truncated_text,
     adj = c(0.5,0.5),
     cex = 1,
     col = "white")

方法3：动态调整字号适配文本 #

如果希望完整显示所有文本，可通过strwidth()计算文本宽度，动态调整cex参数让文本刚好适配图像宽度。

代码示例：

library(raster) 
myJPG <- stack("images/1.jpg")
plotRGB(myJPG)  

vt <- rep(1:100)
vt <- paste(vt, collapse = ' ')

# 目标宽度为图像宽度300像素，初始字号设为1
target_width <- 300
initial_cex <- 1

# 计算当前字号下的文本宽度
text_width <- strwidth(vt, cex = initial_cex)
# 计算适配的字号比例
adjusted_cex <- initial_cex * (target_width / text_width)

# 用调整后的字号绘制文本
text(x = 150, y = 70,
     labels = vt,
     adj = c(0.5,0.5),
     cex = adjusted_cex,
     col = "white")

注：若绘图设备尺寸与图像不一致，需先设置对应尺寸的绘图设备，确保文本宽度计算准确：

# 先创建300×200像素的绘图设备
png("output.png", width = 300, height = 200)
plotRGB(myJPG)
# 执行绘制文本的代码
dev.off()

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