Extrapolating data with interp not producing accurate image
I have a graph where the extrapolation does not match the initial interpolation. I would like the heatmap to fill the entire image. First, the interpolation code: library(akima) library(reshape2) xmin <- signif(min(CBLo2$MD1)) xmax <- signif(max(CBLo2$MD1)) ymin <- signif(min(CBLo2$MD2)) ymax <- signif(max(CBLo2$MD2)) gridint <- 100 fld <- with(CBLo2, interp(x = MD1, y = MD2, z = Abundance, xo=seq(xmin, xmax, length=gridint), yo=seq(ymin, ymax, length=gridint) )) df <- melt(fld$z, na.rm = TRUE) names(df) <- c("MD1", "MD2", "Abundance") df$MD1 <- fld$x[df$MD1] df$MD2 <- fld$y[df$MD2] contour