比较smoothScatter图R

Question

我使用smoothScatter在R中生成许多密度图。 我想知道是否可以在colramp中设置最大值，因此我比较了数据集之间的密度图。 smoothScatter自动标准化colramp，因此我无法直观地比较密度图。 我想获得在colramp中设置最大值的密度图。

以前曾问过这个问题，但没有人回答： R Plotting two datasets with smoothScatter() with the same color scheme

代码：

fudgeit <- function(){
  xm <- get('xm', envir = parent.frame(1))
  ym <- get('ym', envir = parent.frame(1))
  z  <- get('dens', envir = parent.frame(1))
  colramp <- get('colramp', parent.frame(1))
  image.plot(xm,ym,z, col = colramp(256), legend.only = T, add =T)
}

Lab.palette <- colorRampPalette(c("white", "orange", "red"), space = "Lab")
smoothScatter(sub3, colramp = Lab.palette, postPlotHook = fudgeit)

Density scaling issue