寻找一种方法来加快R

Question

所以我有一组大图像（2048 x 2048），我已经使用OpenImageR的readImage函数将它们读入R：

xyz <- readImage("xyz.tif")

我在使用“轮廓”功能时遇到了麻烦，因为R要么在绘制前崩溃，要么需要5至8分钟才能生成单个图。使用较小的图像（512 x 512）花费了一些时间，但是现在时间几乎变得不可用了，另外我还可以绘制70多个其他图像。我也收到此警告：

Warning messages:
1: In contour.default(xyz) :
  contour(): circular/long seglist -- set options("max.contour.segments") > 25000?

我在50级的nlevels上尝试过，但仍然花了很长时间。

然后我尝试了contourplot和filled.contour函数，但是前者仍然花费很长时间并且没有给出清晰的水平，而后者崩溃了R或给了我警告：

Warning messages:
1: In doTryCatch(return(expr), name, parentenv, handler) :
  contour(): circular/long seglist -- set options("max.contour.segments") > 25000?

是否有更好的方法来解决此问题？像更快的轮廓绘制功能？如果可以帮助，我不想重新缩放图像，因为我想保留数据的细微差别以供理解。另外，如果有一种方法可以在一幅图像中绘制5 x 5个等高线图（不重叠），那将是一个好处！谢谢