删除点阵线框图中的面板轮廓/添加轴刻度和颜色标度轮廓。

Question

我有一系列的线图，类似于下面的例子；

require(lattice)

# set up some data
theta <- seq(-3, 3, .4)
data <- expand.grid(theta, theta)
data$z <- dnorm(data[,1]) * dnorm(data[,2])
names(data) <- c('x','y','z')

# plot it
wireframe(z ~ x * y, data,
          scales = list( arrows = FALSE),
          aspect = c(1, .6),
          drape = TRUE)

给出了下面的情节。

​

​

我想删除面板的轮廓。标准的解决方案是使用par.settings = list(axis.line = list(col = 'transparent'))；

# try to remove outline
wireframe(z ~ x * y, data,
          scales = list( arrows = FALSE),
          aspect = c(1, .6),
          drape = TRUE,
          par.settings = list(axis.line = list(col = 'transparent')))

它确实删除了轮廓，但并没有就此结束.

​

​

轴勾标以及色标周围的轮廓也被移除。解决方案可用于2d绘图，请参见用R格木素图分别控制轴蜱和轴线，但我无法为3D/线框绘图找到类似的解决方案。

我试着按照上面的答案来提供一个轴函数，但是似乎函数只会被调用到上/下/左/右，这对于3d绘图来说并不是很有用。

问题；

在设置par.settings = list(axis.line = list(col = 'transparent'))时如何阻止格移除刻度标记和刻度轮廓

否则，什么样的功能用于线框图上的勾标，以及色标上的轮廓使用什么功能？

Answer 1

这段代码将完成这项工作。

wireframe(z ~ x * y, data,
          scales = list( arrows = FALSE, col="black"), # col="black" is required 
          aspect = c(1, .6),
          drape = TRUE,
          par.settings = list(axis.line = list(col = 'transparent'))
)

这是改编自塞斯·W·毕格罗的回答的