У меня есть кривая, которую я использую R (см. код ниже):
library(rgl)
y = seq(-5,25,by=0.01)
x = seq(5,20,by=0.02)
sd = 0.3*x
NAs <- rep(NA, length(x)*length(y))
z <- matrix(NAs, length(x), byrow = T)
for(i in seq(1,length(x))) {
for(j in seq(1,length(y))) {
val = dnorm(y[j],mean=7.5,sd=sd[i])
z[i,j] = val
if(z[i,j] < 0.02) {
z[i,j] = NA
}
}
}
col <- rainbow(length(x))[rank(x)]
open3d()
persp3d(x,y,z,color=col,xlim=c(5,20),ylim=c(5,10),axes=F,box=F,xlab="exp",ylab="obs",zlab="p")
И вот что он делает:
Если вы немного повернете его, вы сможете увидеть, что это фигура полых трубчатых элементов.
Но я пытаюсь сделать его заполненным (с градиентом цвета), чтобы он не был полым. Представьте, что вы делаете кусочек в любом месте, и вы получите 2D-плоскость, а не 2D-кривую, если это имеет смысл. Как я могу это сделать?