使用stat_density2d在R中创建热图

Question

我有几个（x，y）坐标，每个坐标都与二进制值（1或0）相关联。我想创建一个热图，显示每个点的概率是该位置的给定点与之关联的1。

示例数据：

data = read.table(header=TRUE, 
text="x    y    value
7    3    0
4    5    0
3    7    1
3    6    0
4    5    1
5    6    0")

等等。我可以使用以下内容创建一个显示点集中位置的图表：

ggplot(data, aes(x=x,y=y)) + stat_density2d(aes(fill=..level..), geom="polygon")

但是当我尝试设置fill = value时，我收到以下错误：

Error in unit(tic_pos.c, "mm") : 'x' and 'units' must have length > 0

我该怎么做？

编辑：我应该补充一点，我可以使用stat_summary2d甚至geom_tile轻松完成此操作，但它看起来更加宽松，不太流畅，我希望它能够实现。