I am using the wireframe function from lattice package. The problem that I
have is very interesting. Namely,  this is my code:

 

x= seq(-pi, pi, len = 20)

y=seq(-pi, pi, len = 20)

xyz= expand.grid(x = x, y = y)

xyz$z=sin(sqrt(xyz$x^2 +xyz$y^2))

 

trellis.par.set("axis.line",list(col="transparent"))

trellis.par.set("panel", list(col="transparent"))

trellis.par.set("panel.background", list(col="transparent"))

 

graf=wireframe(z~x*y, data=xyz,     

          scales=list(arrows=FALSE, cex=2, col="black", font=3, tck=1,

              z=list(tick.number=1), x=list(tick.number=3),
y=list(tick.number=3),

              light.source=c(0,0,10), distance=1, pretty=FALSE),     #,
z=list(draw=FALSE)

          bg="white",

          perspective=TRUE,

          zoom=0.85,

          screen=list(z=-245, x=-75, y=0),          

          colorkey=FALSE,             

          col.regions=terrain.colors(255),  

          aspect=c(1,1),     

          par.box = list(col=1),

          border=FALSE,

          col=1,   

          xlab=list("Length / [m]",rot=-49, cex=2.5, col="black"),

          ylab=list("Length / [m]",rot=10, cex=2.5, col="black"),

          zlab=list(label="Height / [m]", font=1, cex=2.5, rot=90,
col="black"),

          shade=F,

          light.source=c(0,10,10),

          shade.colors=function(irr, ref, height, w=0.4)
grey(w*irr+(1-w)*(1-(1-ref)^0.4)), 

          zlim=range(seq(0,max(xyz$z), by=0.1)),

          drape=T

          )        

 

print(graf)

 

png(filename="Probe.png", width=900, height=900)

print(graf)

dev.off()

 

On the R-graphics panel  is no box around the picture but in the .png file
it appears. How I can remove box around the picture in .png file? (The same
thing happened with jpeg() function.)

I will appriciated to any one who will  help on this problem!!! Thanks in
advance!"

 


	[[alternative HTML version deleted]]

