R：裁剪多个 png 并将它们组合成一个图答案

【问题标题】：R: crop multiple pngs and combine them into a single plotR：裁剪多个 png 并将它们组合成一个图
【发布时间】：2015-02-14 06:17:36
【问题描述】：

我将数据绘制成两个这样的图：

xy <- structure(list(NAME = structure(c(2L, 2L, 1L, 1L), .Label = c("CISCO", "JOHN"), class = "factor"), ID = c(41L, 41L, 57L, 57L), X_START_YEAR = c(1965L, 1932L, 1998L, 1956L), Y_START_VALUE = c(960L, -45L, 22L, -570L), X_END_YEAR = c(1968L, 1955L, 2002L, 1970L), Y_END_VALUE = c(960L, -45L, 22L, -570L), LC = structure(c(1L, 1L, 2L, 2L), .Label = c("CA", "US"), class = "factor")), .Names = c("NAME", "ID", "X_START_YEAR","Y_START_VALUE", "X_END_YEAR", "Y_END_VALUE", "LC"), class = "data.frame", row.names = c(NA,-4L))
ind <- split(xy,xy$ID)
# Plots
for (i in ind){
  xx = unlist(i[,grep('X_',colnames(i))])
  yy = unlist(i[,grep('Y_',colnames(i))])    
  fname <- paste0(i[1, 'ID'],'.png')
  png(fname, width=1679, height=1165, res=150)
  par(mar=c(6,8,6,5))
  plot(xx,yy,type='n', xlab=NA, ylab="Value [mm]",ylim = range(c(yy,-.5,.5))) 
  i <- i[,-1]
  segments(i[,2],i[,3],i[,4],i[,5],lwd=2)
  abline(h=0)
  dev.off()
}

之后，我将生成的 png 添加到一个这样的 png 文件中。

library(grid)
library(png)
plots <- lapply(ll <- list.files(patt='.*[.]png'),function(x){
  img <- as.raster(readPNG(x))
  rasterGrob(img, interpolate = FALSE)
})

library(ggplot2)
library(gridExtra)

ggsave("Plots_Combined.png",width=8.5, height=11, 
       do.call(marrangeGrob, c(plots, list(nrow=2, ncol=1,top=NULL))))

我的问题：我想知道在 R 中创建单个 png 后是否可以裁剪它们的侧面？我知道您可以通过更改 mar 参数在绘图循环中更改此设置，但我想知道您是否也可以在创建 png 后在外部执行此操作？我主要对裁剪图 1 的下部（41.png）和图 2 的上部（57.png）-> 应该裁剪下面示例草图中的红色区域感兴趣。是否可以在生成的 png 中添加标题或简单文本（例如标题）？

【问题讨论】：

标签： r png crop

【解决方案1】：

您可以对图像进行子集化，

img <- readPNG(system.file("img", "Rlogo.png", package="png"))
grid.raster(img[10:50,20:90,])

【讨论】：

谢谢。虽然这适用于 R 徽标，但我无法让 R 读取我的示例数据，我正在使用以下代码：img <- readPNG(system.file("41.png", "57.png", package="png")) 并得到一个 Error in readPNG(system.file("41.png", "57.png", package = "png")) : unable to open
@redshoe system.file() 实际上只对从包中提取文件有帮助。只需尝试img <- readPNG("41.png")（假设 PNG 文件在您当前的工作目录中）。您需要一次阅读它们。
我遇到的问题是以高分辨率保存新文件。我正在使用dev.copy(png, "outputimage.png")dev.off()，它只会给我带来不好的结果。对更好的方法来保存和获得更好的结果有什么想法吗？
我会重新考虑整个方法；您可以在某些上下文中编辑您的问题，以解释您为什么决定采用这种（非常奇怪的）路径。
@baptiste 看到这个问题stackoverflow.com/questions/27560225/… 我试图详细说明为什么我想在循环外进行堆叠和随后的裁剪。但是，如果您知道如何在内部进行操作，如果您能看一下这个问题，我会很高兴。