Reproduzir gráfico 3D no R
Prezados, alguém tem alguma sugestão de como resolver essa questão: https://pt.stackoverflow.com/questions/202827/reproduzir-gr%C3%A1fico-3d-com... Desde já agradeço! Att, Fernando de Souza Bastos Professor Assistente Universidade Federal de Viçosa (UFV) Campus UFV - Florestal Doutorando em Estatística Universidade Federal de Minas Gerais (UFMG) Cel: (31) 99751-6586
A função panel.3d.contour.R foi feita a partir de soluções extraídas de listas de discussão. O exemplo abaixo ilustra como usar. Para mais informações, consulte a documentação da função. source(" https://raw.githubusercontent.com/walmes/wzRfun/master/R/panel.3d.contour.R ") library(lattice) library(RColorBrewer) colr <- brewer.pal(11, "Spectral") colr <- colorRampPalette(colr, space = "rgb") grid <- expand.grid(x = seq(-1, 1, by = 0.1), y = seq(-1, 1, by = 0.1)) grid$z <- with(grid, 1 + 0.01 * x + 0.05 * y - 0.5 * x * y - 0.5 * x^2 - 0.2 * y^2) wireframe(z ~ x + y, data = grid, scales = list(arrows = FALSE), zlim = extendrange(grid$z, f = 0.5), panel.3d.wireframe = panel.3d.contour, nlevels = 18, col = "gray30", type = c("on", "top", "bottom"), col.regions = colr(101), drape = TRUE) À disposição. Walmes.
Obrigado Prof. Walmes pela disponibilidade de sempre! Att, Fernando de Souza Bastos Professor Assistente Universidade Federal de Viçosa (UFV) Campus UFV - Florestal Doutorando em Estatística Universidade Federal de Minas Gerais (UFMG) Cel: (31) 99751-6586 Em 7 de maio de 2017 22:51, Walmes Zeviani <walmeszeviani@gmail.com> escreveu:
A função panel.3d.contour.R foi feita a partir de soluções extraídas de listas de discussão. O exemplo abaixo ilustra como usar. Para mais informações, consulte a documentação da função.
source("https://raw.githubusercontent.com/walmes/ wzRfun/master/R/panel.3d.contour.R")
library(lattice) library(RColorBrewer)
colr <- brewer.pal(11, "Spectral") colr <- colorRampPalette(colr, space = "rgb")
grid <- expand.grid(x = seq(-1, 1, by = 0.1), y = seq(-1, 1, by = 0.1)) grid$z <- with(grid, 1 + 0.01 * x + 0.05 * y - 0.5 * x * y - 0.5 * x^2 - 0.2 * y^2)
wireframe(z ~ x + y, data = grid, scales = list(arrows = FALSE), zlim = extendrange(grid$z, f = 0.5), panel.3d.wireframe = panel.3d.contour, nlevels = 18, col = "gray30", type = c("on", "top", "bottom"), col.regions = colr(101), drape = TRUE) À disposição. Walmes.
participantes (2)
-
Fernando de Souza Bastos -
Walmes Zeviani