r - Complete missing lines using rgl grid3d -


does know of way 1) complete missing gridlines in grid3d call y, , 2) draw horizontal gridlines close top of grids constructed grid3d calls x , y? i've played around various combinations of pretty calls within grid3d no avail , wondering if rgl quirk or misspecification on part. additionally, i'd extend vertical axis numbering wherever closed grids end up.

library(rgl) cpts <- seq(0, 2, length = 40) spts <- seq(0, 1, length = 20) grid <- expand.grid(s=spts, c=cpts) ufn  <- function(s,c){c^(0.5) - exp(s) + 1} u    <- ufn(grid$s, grid$c) open3d() rgl.surface(x = spts, y = matrix(u,nrow = 40, ncol = 20), z = cpts,              coords = c(1,3,2), specular = "black") axes3d("x", @ = pretty(spts, n = 2), color = "black") axes3d("y", @ = pretty(cpts, n = 5), color = "black") axes3d("z--", color = "black") grid3d("x") grid3d("y", @ = pretty(spts, n = 2)) title3d(xlab ='s', ylab = 'c', zlab = 'u', color = "black") rgl.snapshot("3d.png") 

enter image description here

i bug. don't z-lines when using grid3d("y",n=2) though should same. can work around using list specification of at, setting x element of list, eg:

grid3d("y", @ = list(x=pretty(spts, n = 2))) 

Comments

Popular posts from this blog

python - mat is not a numerical tuple : openCV error -

c# - MSAA finds controls UI Automation doesn't -

wordpress - .htaccess: RewriteRule: bad flag delimiters -