r - ggplot stat_density2d 的离散数据

Question

stat_density2d 似乎不喜欢离散数据。我的以下代码无法绘制，并且在 R 2.15.2 上有这样的错误：

contourLines(x = sort(unique(data$x)), y = sort(unique(data$y)), 中的错误：没有指定适当的“z”矩阵另外：警告消息：1：删除了 10000 行包含非有限值（stat_contour）。2：在 min(x) 中：min 没有非缺失参数；返回 Inf 3：在 max(x)：max 中没有非缺失参数；返回 -Inf

在 R 2.15.3 上，错误是：

函数错误 (x, y, h, n = 25, lims = c(range(x), range(y))) ：
带宽必须严格为正

可能是因为限制 n = 25。

a<-url("http://www-personal.umich.edu/~ajing/Files/TestData.RData")
load(a)

library(ggplot2)
p1<-ggplot(myd, aes(x=xvar,y=yvar)) + stat_density2d(aes(fill=..level..), geom="polygon")
gt <- ggplot_gtable(ggplot_build(p1))

无论如何要避免这个错误？还是其他推荐的二维直方图？

因为我需要两个边际直方图，所以 ggplot 比 fill.contour 对我来说更好。