请教曲面图绘制

quipus

请教达人，如何解决Z坐标轴标示文字与刻度重影？如何增加Y轴和X刻度数目？如何将刻度线向内？

代码如下：
x<-y<-seq(-1, 1, 0.04)
f<-function(x,y) 0.2480+0.0527*(x+y)+0.058*x*y-0.0424*(x^2+y^2)-0.0014*(x*y^2+x^2*y)+0.0172*x^2*y^2-0.0432*(x^3+y^3)-0.0335*(x^3*y+x*y^3)+0.0049*(x^2*y^3+x^3*y^2)+0.0203*x^3*y^3
z<-outer(x, y, f)
contour(x,y,z,col="blue")
persp(x,y,z,theta=-30, phi=10,expand=0.9,col="lightblue",xlab="days",ylab="days",zlim=c(0,0.3),zlab="body weight",ticktype ="detailed")

多谢！