Учитывая следующий код R:
require(lattice)
x <- c(1:10)
y <- c(1:10)
g <- expand.grid(x = 1:10, y = 1:10, gr = 1:2)
g$z <- c(as.vector(outer(x,y,"*")), rep(50,100))
wireframe(z ~ x * y, data = g, groups = gr)
Пересечение результирующих поверхностей некрасиво, так как оно следует линиям сетки.
Есть ли способ сделать пересечение между поверхностями более красивым (кроме увеличения разрешения сетки)? Может быть, передав какие-то параметры или используя другой пакет для визуализации?