<div dir="ltr">Uma opção seria<br><br>library(scatterplot3d)<br>x=c(-1,-1,-1,-1,-1,0,1,0,0,1,0,0,1,1,0)<br>y=c(-1,-1,0,1,0,1,0,-1,-1,-1,-1,1,1,0,0)<br>z=c(-1,0,1,0,-1,-1,-1,-1,1,0,-1,1,0,1,0)<br>w=scatterplot3d(x,y,z, highlight.3d = T, angle = 45,<br>
scale.y = .5,xlab="Concentração", ylab="pH",<br> zlab="Agitação",col.axis="blue",type="n")<br>w$points3d(x,y,z,col="red",pch=20,cex=5)<br><br># calcula media e desvio por ponto<br>
med <- format(apply(cbind(x, y, z), 1, mean), digits = 3)<br>dp <- format(apply(cbind(x, y, z), 1, sd), digits = 3)<br>dp <- paste("(", dp, ")", sep = "")<br># cria o label<br>lab <- paste(med, dp, sep = "\n")<br>
# insere o label<br>text(w$xyz.convert(x, y, z), labels = lab, pos = 4, cex = .7)<br><br><br></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">---<br>Fernando de Pol Mayer<br>Doutorando em Estatística e Experimentação Agronômica<br>
Escola Superior de Agricultura "Luiz de Queiroz" - ESALQ<br>Universidade de São Paulo - USP<br>URL: <a href="http://fernandomayer.github.io" target="_blank">http://fernandomayer.github.io</a><br>e-mail: fernando.mayer [@] {<a href="http://gmail.com" target="_blank">gmail.com</a>, <a href="http://usp.br" target="_blank">usp.br</a>}</div>
</div>
<br><br><div class="gmail_quote">2014/1/6 David Feitosa <span dir="ltr"><<a href="mailto:contato@davidfeitosa.com" target="_blank">contato@davidfeitosa.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Existe a função text( ) que permite vc add um texto em uma dada coordenada (x,y).<div>É isso o que vc quer?</div></div><div class="gmail_extra"><br clear="all"><div><div><br></div><div><br></div><div>Atenciosamente,</div>
<div><br></div>David Feitosa<br><div><div></div></div><div><br></div><div><div>(\_(\</div><div>(=°;°)</div><div>(("")("")</div></div></div>
<br><br><div class="gmail_quote">Em 6 de janeiro de 2014 12:46, Ari Clecius <span dir="ltr"><<a href="mailto:ari072000@yahoo.com.br" target="_blank">ari072000@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<div><div style="font-size:8pt;font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif"><div><span>Bom dia alguém sabe como acrescento o valor da média e do desvio padrão em cada ,ponto deste gráfico, ou seja, um label para cada ponto?</span></div>
<div style="font-style:normal;font-size:11px;background-color:transparent;font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif"><span><br></span></div><div style="font-style:normal;font-size:11px;background-color:transparent;font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif">
<span>Att,</span></div><div></div><div> </div><div><span style="font-weight:bold;font-style:italic">Ari Clecius Alves de Lima</span><br style="font-weight:bold;font-style:italic"><span style="font-weight:bold;font-style:italic">Engenheiro Químico</span><br style="font-weight:bold;font-style:italic">
<span style="font-weight:bold;font-style:italic">Me. Engenharia Civil</span><br style="font-weight:bold;font-style:italic"><span style="font-weight:bold;font-style:italic"><a href="tel:%28085%2987687786" value="+558587687786" target="_blank">(085)87687786</a></span><br style="font-weight:bold;font-style:italic">
<span style="font-weight:bold;font-style:italic"><a href="tel:%28085%2933669042" value="+558533669042" target="_blank">(085)33669042</a></span></div><div style="font-style:italic;font-size:11px;background-color:transparent;font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif">
<span style="font-weight:bold;font-style:italic"><br></span></div><div style="font-style:italic;font-size:11px;background-color:transparent;font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif">
<span style="font-weight:bold;font-style:italic">#código</span></div><div style="background-color:transparent"><b><i>library(scatterplot3d)</i></b></div><div style="background-color:transparent"><b><i>x=c(-1,-1,-1,-1,-1,0,1,0,0,1,0,0,1,1,0)</i></b></div>
<div style="background-color:transparent"><b><i>y=c(-1,-1,0,1,0,1,0,-1,-1,-1,-1,1,1,0,0)</i></b></div><div style="background-color:transparent"><b><i>z=c(-1,0,1,0,-1,-1,-1,-1,1,0,-1,1,0,1,0)</i></b></div><div style="background-color:transparent">
<b><i>w=scatterplot3d(x,y,z, highlight.3d = T, angle = 45, scale.y = .5,xlab="Concentração", ylab="pH",zlab="Agitação",col.axis="blue",type="n")</i></b></div><div style="background-color:transparent">
<b><i><span></span></i></b></div><div style="background-color:transparent"><b><i>w$points3d(x,y,z,col="red",pch=20,cex=5)</i></b></div><div><br></div></div></div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>