[R-br] Plotagem 3D

[Tiago Souza Marçal]

Obrigado Tito,
 
funcionou perfeitamente. Mas gostaria de saber se na opção 3d eu posso adicionar texto ao lado de cada ponto? E se seria possível excluir as arestas frontais?
 
CMR
 
dados<-structure(list(V1 = c(-18.7175, -20.1915, -21.1557, -17.5965, 
-18.142, -13.857, -18.0086, -14.0436, -12.571), V2 = c(38.3004, 
36.4955, 34.4964, 39.9303, 40.4819, 38.3763, 34.9869, 35.0723, 
35.9022), V3 = c(-20.9237, -20.12, -17.8586, -17.0183, -17.9961, 
-20.8457, -19.5551, -17.5703, -18.7393)), .Names = c("V1", "V2", 
"V3"), class = "data.frame", row.names = c(NA, -9L))
 
zlab <- "VC2 (27,53%)"
xlab <- "VC1 (49,37%)"
ylab <- "VC3 (11,80%)"
 
require(lattice)
 
cloud(V2~V1*V3,zlab=list(zlab, rot=90),xlab=list(xlab, rot=-20),ylab=list(ylab, rot=25),scales=list(arrows=FALSE),type=c("p","h"),zlim=c(30,50),ylim=c(-24,-14),xlim=c(-22,-12),pch=17,zoom=0.8,col=1,panel.aspect = 1,screen = list(x = -70,y=-40,z=-15))
 
Att.
 
Tiago.


################################################################# Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas ################################################################# 
 
From: tito.conte em gmail.com
Date: Mon, 3 Jun 2013 10:56:33 -0300
To: r-br em listas.c3sl.ufpr.br
Subject: Re: [R-br] Plotagem 3D

da uma olhada na função cloud do lattice
Tito Conte




2013/6/3 Tiago Souza Marçal <tiagosouzamarcal em hotmail.com>





Bom dia pessoal,
 
estou querendo plotar um gráfico tridimensional com os escores canônicos que estão abaixo:
 
dados<-structure(list(V1 = c(-18.7175, -20.1915, -21.1557, -17.5965, 


-18.142, -13.857, -18.0086, -14.0436, -12.571), V2 = c(38.3004, 
36.4955, 34.4964, 39.9303, 40.4819, 38.3763, 34.9869, 35.0723, 
35.9022), V3 = c(-20.9237, -20.12, -17.8586, -17.0183, -17.9961, 
-20.8457, -19.5551, -17.5703, -18.7393)), .Names = c("V1", "V2", 


"V3"), class = "data.frame", row.names = c(NA, -9L))
 
require(lattice)
 
zlab <- "VC2"
xlab <- "VC1"
ylab <- "VC3"


 
wireframe(V2~V1*V3, scales=list(arrows=FALSE), zlab=list(zlab, rot=90), xlab=list(xlab, rot=24), ylab=list(ylab, rot=-37),xlim=c(-12,-20),ylim=c(-18,-22),type=c("on","bottom"))

No entanto, não estou conseguindo fazer com que os pontos apareçam no gráfico e gostaria de eliminar as 3 arestas frontais.


 
Agradeço desde já pela ajuda.
 
att.
 
Tiago


################################################################# Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES

 Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas #################################################################  		 	   		  

_______________________________________________

R-br mailing list

R-br em listas.c3sl.ufpr.br

https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br

Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.



_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel. 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130603/763c02ac/attachment.html>