Skip to main content
added 68 characters in body
Fonte Link

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:

plotPlane

Uma outra solução, sabidamente mais simples, é 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:

model <- loess(Income ~Education + Seniority, data=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, 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:

plotPlane

Uma outra solução, um 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 + Seniority, data = 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:

plotPlane

Fonte Link

Uma outra solução, sabidamente mais simples, é 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:

model <- loess(Income ~Education + Seniority, data=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, 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:

plotPlane