'Stat_bdke2d()' function returns argument “z.range” is missing error

Question

    ggplot(df2, aes(remove_outliers(latitudw), remove_outliers(longtied))) +
    annotation_custom(rasterGrob(pitch, width = unit(1,"npc"),