Uma outra solução, sabidamenteum tanto mais simples e talvez não tão bonita graficamente, é a função plotPlane
do pacote rockchalk
. A vantagem é que você pode fazer um gráfico 3D com apenas uma linha de comando. Usando os dados acima:
require(rockchalk)
model <- loess(Income ~Education~ Education + Seniority, data=Income2data = Income2)
plotPlane(model, plotx1 = "Education", plotx2 = "Seniority",
drawArrow = TRUE, pch = 20, pcol = 2,
npp = 100, theta = 20, phi = 30)
Na qual plotx
é a variável em cada um dos eixos, drawArrow
traça as linhas, npp
é o número de pontos para os quais os valores preditos são calculados, e theta
e phi
servem para girar o gráfico horizontal e verticalmente. O resultado é este: