如何在R中覆盖照片？

Question

我拍了一个树干的视频。然后，我将该视频传输到多个照片序列（jpeg或png）中。

现在我需要的是通过加入整个序列以形成树干来安装单张照片。

但是，我需要确定照片中的共同区域，但是我唯一要做的是下面的脚本，该脚本将照片堆叠在一起，并且不会使它们之间的共同区域重叠。

library("png") # for reading in PNGs

files <- list.files(path=".", pattern="*.png", all.files=T, full.names=T)
filelist <- lapply(files, readPNG)
names(filelist) <- paste0(basename((files)))
list2env(filelist, envir=.GlobalEnv)


# setup plot
#dev.off()
par(mai=rep(0,4)) # no margins

# layout the plots into a matrix w/ 12 columns, by row
layout(matrix(1:2, ncol=1, byrow=TRUE))

#test 2
for(i in 1:length(names(filelist))) {
  img <- readPNG(names(filelist[i]))
  plot(NA,xlim=0:1,ylim=0:1,bty="n",axes=0,xaxs = 'i',yaxs='i')
  rasterImage(img,0,0,1,1)
}