创建等高线图

Question

我想构建一个填充的等高线图（理想情况下是ggplot）。我通过以下方式创建数据框：

b1 = 35
b2 = 20

d = data.frame(slope1 = rep(seq(1,5,length.out = 50)),
               X1 = rep(seq(0.2,10.2,length.out = 50),each=50))

d$slope2 = with(d, slope1*(1-X1))
d$z1 = with(d, (b1 - b2)/(slope1 - slope2))

p = ggplot(d, aes(x=slope2, y=slope1, z=z1)) +
             stat_contour()
p

但我收到错误：

  

contourLines中的错误（x = sort（唯一（数据$ x）），y = sort（唯一（数据$ y））,:     'x'，'y'和'z'的尺寸不匹配

我知道我遗漏了一些基本的东西。如何从此数据框构建填充等高线图？