如何在R中剪切一個plot中的長文本字符

Question

我有一個很長的文本，我想將 plot 轉換為 R 中的圖像，圖像大小為 300 x 200 像素。 實際文本會有所不同。

示例圖片

示例代碼

library(raster) 
myJPG <- stack("images/1.jpg")  # Image with 300 x 200 pixel size
plotRGB(myJPG)  

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


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

示例結果。

我想問一下 如何自動裁剪標簽中的文字，並調整為圖片中顯示所有文字？

Answer 1

您可以將\n插入字符向量vt以換行。 自動執行此操作的一種方法是使用strwrap 。

library(raster) 
myJPG <- stack("~/Documents/1.jpg")  # Image with 300 x 200 pixel size
plotRGB(myJPG)  

vt <- rep(1:100)
vt <- paste(vt, collapse = ' ')
vt2 <- paste(strwrap(
  x = vt,
  width = 70),
collapse = "\n")

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