密度曲面模型ggplot到栅格

Question

我已通过以下示例使用自己的line transect data创建密度表面模型。

输出是使用ggplot2的阴影/渐变密度图

pcount_tw <- ggplot() +
grid_plot_obj(pred.grid, mod_tw_pred, "Density") + 
scale_fill_gradient(low="white", high="chocolate4")  +
coord_equal() + theme_minimal() +
geom_path(aes(x=x, y=y), data=survey.area) +
geom_point(aes(x = Xcoord, y = Ycoord, group="Point"), data = DSdata, colour = "black") +
labs(fill="Density")

但是我不知道如何将其转换为栅格，以便提取特定GPS点的猎物密度。 据我了解，ggplots与空间工具不兼容，所以我需要转换它吗？但是如何？任何帮助将不胜感激！