无法使用颜色

Question

云呈现但是注意到所有点都是蓝色的，并且它们与密钥不匹配。

set.seed(7)
d=data.frame(x=runif(1000,1,10),y=runif(1000,1,10))
d$z=d$x+d$y
lattice::cloud(z~x+y,d,drape = TRUE,colorkey = T, scale=list(arrows=F),
               at=quantile(d$z,seq(0,1,length.out =  10)),
               col.regions = colorRampPalette(c("red",'yellow','green'))(10)
               )
lattice::wireframe(z~x+y,d,drape = TRUE,colorkey = T, scale=list(arrows=F),
                   at=quantile(d$z,seq(0,1,length.out =  10)),
                   col.regions = colorRampPalette(c("red",'yellow','green'))(10))

这些蓝点应与右侧的图例相匹配。有什么建议??

线框甚至不渲染帧...