问题遇到的现象和发生背景
在用wireframe函数画三维曲面图如下图所示。发现图中有很多网格线,影响对图的观察,这些值我用颜色已经表现出来了,想去掉网格线
问题相关代码,请勿粘贴截图
surface_plot1 <- wireframe(E ~ y*x, data=Grid_xyE,
xlab = "as.numeric转换后校正",
ylab = "as.numeric转换后校正",
zlab="Power density",
#zlim=c(20,180),
strip= TRUE,
drape = TRUE,
colorkey = TRUE,
scales = list(arrows=FALSE),
light.source = c(20,0,20),
col.regions = colorRampPalette(rev(brewer.pal(11,'RdYlGn')))(100),
screen = list(z = -60, x = -60)
)
surface_plot1