获取密度图中密度最高的坐标

Question

有人知道如何在R的ggplot2中以geom_density2d获得最高密度的坐标吗？如果我直接从函数中获取它们，我将不胜感激。