ggplot2のgeom_tileレイヤーへのポイントの追加

Question

R 2.13.1/ggplot2 0.8.9では、geom_tileレイヤーにポイントを追加しようとしています。この例では、エラーが再現されます。

volcano3d <- melt(volcano) 
names(volcano3d) <- c("x", "y", "z") 
pts <- data.frame(a=runif(10,0,80), b=runif(10,0,60)) 
v <- ggplot(volcano3d, aes(x, y, z = z)) 

v + geom_tile(aes(fill = z)) 
# works fine 

v + geom_tile(aes(fill = z)) + geom_point(data=pts, aes(x=a, y=b)) 
# Error in eval(expr, envir, enclos) : object 'z' not found 

何が問題なのですか？

Answer 1

いずれか

v + geom_tile(aes(fill = z)) + geom_point(data=pts, aes(x=a, y=b,z=NULL)) 

または単に最初ggplotコール

v <- ggplot(volcano3d, aes(x, y)) 
v + geom_tile(aes(fill = z)) + geom_point(data=pts, aes(x=a, y=b))