等高线图ggplot2错误

Question

以下代码运行良好

dat1 <- data.frame(x=c(-1,-1,1,1),y=c(-1,1,-1,1),z=c(1,2,3,4))
dat2 <- data.frame(x=c(-0.5,0.5),y=c(-0.5,0.5))

ggplot(dat1, aes(x=x, y=y, z=z)) +
geom_tile(aes(fill=z)) +
scale_fill_gradient(limits = c(0, 1), low = "yellow", high = "red")

但是，这个

ggplot(dat1, aes(x=x, y=y, z=z)) +
geom_tile(aes(fill=z)) +
scale_fill_gradient(limits = c(0, 1), low = "yellow", high = "red") +
geom_point(data=dat2, aes(x=x,y=y))

报错

错误：美学必须是长度1或与数据相同（2）：x，y，z

有人能解释一下原因吗？谢谢。

Answer 1

ggplot 函数会将嵌套在其中的 aes 函数中声明的所有美学传递给它后面的所有 geom 函数。为了说明我的观点，以下两项工作。

最干净的答案是从 aes 函数中删除 z，因为它只需要第一个几何图形。

ggplot(dat1, aes(x=x, y=y) )+
  geom_tile(aes(fill=z)) +
  scale_fill_gradient(limits = c(0, 1), low = "yellow", high = "red") +
  geom_point(data=dat2)

由于 dat2 中没有 z 列，您也可以在 geom_point 的 aes 函数中明确声明它

ggplot(dat1, aes(x=x, y=y, z=z) )+
  geom_tile(aes(fill=z)) +
  scale_fill_gradient(limits = c(0, 1), low = "yellow", high = "red") +
  geom_point(data=dat2, aes( z=NULL))