<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:8pt"><div><span>Obrigado Fernando, o resultado final ficou muito bom.</span></div><div style="color: rgb(0, 0, 0); font-size: 11px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 11px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><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;">(085)87687786</span><br style="font-weight:bold;font-style:italic;"><span style="font-weight:bold;font-style:italic;">(085)33669042</span></div><div class="yahoo_quoted" style="display: block;"> <br> <br> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 8pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> Em Segunda-feira, 6 de Janeiro de 2014 14:17, Fernando Mayer <fernandomayer@gmail.com> escreveu:<br> </font> </div> <div class="y_msg_container"><div id="yiv9689702743"><div><div dir="ltr">Uma opção seria<br clear="none"><br clear="none">library(scatterplot3d)<br
clear="none">x=c(-1,-1,-1,-1,-1,0,1,0,0,1,0,0,1,1,0)<br clear="none">y=c(-1,-1,0,1,0,1,0,-1,-1,-1,-1,1,1,0,0)<br clear="none">z=c(-1,0,1,0,-1,-1,-1,-1,1,0,-1,1,0,1,0)<br clear="none">w=scatterplot3d(x,y,z, highlight.3d = T, angle = 45,<br clear="none">
scale.y = .5,xlab="Concentração", ylab="pH",<br clear="none"> zlab="Agitação",col.axis="blue",type="n")<br clear="none">w$points3d(x,y,z,col="red",pch=20,cex=5)<br clear="none"><br clear="none"># calcula media e desvio por ponto<br clear="none">
med <- format(apply(cbind(x, y, z), 1, mean), digits = 3)<br clear="none">dp <- format(apply(cbind(x, y, z), 1, sd), digits = 3)<br clear="none">dp <- paste("(", dp, ")", sep = "")<br clear="none"># cria o label<br clear="none">lab <- paste(med, dp, sep = "\n")<br clear="none">
# insere o label<br clear="none">text(w$xyz.convert(x, y, z), labels = lab, pos = 4, cex = .7)<br clear="none"><br clear="none"><br clear="none"></div><div class="yiv9689702743gmail_extra"><br clear="all"><div><div dir="ltr">---<br clear="none">Fernando de Pol Mayer<br clear="none">Doutorando em Estatística e Experimentação Agronômica<br clear="none">
Escola Superior de Agricultura "Luiz de Queiroz" - ESALQ<br clear="none">Universidade de São Paulo - USP<br clear="none">URL: <a rel="nofollow" shape="rect" target="_blank" href="">http://fernandomayer.github.io</a><br clear="none">e-mail: fernando.mayer [@] {<a rel="nofollow" shape="rect" target="_blank" href="">gmail.com</a>, <a rel="nofollow" shape="rect" target="_blank" href="">usp.br</a>}</div>
</div>
<br clear="none"><br clear="none"><div class="yiv9689702743gmail_quote">2014/1/6 David Feitosa <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:contato@davidfeitosa.com" target="_blank" href="">contato@davidfeitosa.com</a>></span><br clear="none"><blockquote class="yiv9689702743gmail_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="yiv9689702743gmail_extra"><br clear="all"><div><div><br clear="none"></div><div><br clear="none"></div><div>Atenciosamente,</div>
<div><br clear="none"></div>David Feitosa<br clear="none"><div><div></div></div><div><br clear="none"></div><div><div>(\_(\</div><div>(=°;°)</div><div>(("")("")</div></div></div>
<br clear="none"><br clear="none"><div class="yiv9689702743gmail_quote">Em 6 de janeiro de 2014 12:46, Ari Clecius <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:ari072000@yahoo.com.br" target="_blank" href="">ari072000@yahoo.com.br</a>></span> escreveu:<br clear="none"><blockquote class="yiv9689702743gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><div class="yiv9689702743h5">
<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 clear="none"></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 clear="none" style="font-weight:bold;font-style:italic;"><span style="font-weight:bold;font-style:italic;">Engenheiro Químico</span><br clear="none" style="font-weight:bold;font-style:italic;">
<span style="font-weight:bold;font-style:italic;">Me. Engenharia Civil</span><br clear="none" style="font-weight:bold;font-style:italic;"><span style="font-weight:bold;font-style:italic;"><a rel="nofollow" shape="rect" href="">(085)87687786</a></span><br clear="none" style="font-weight:bold;font-style:italic;">
<span style="font-weight:bold;font-style:italic;"><a rel="nofollow" shape="rect" href="">(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 clear="none"></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 clear="none"></div></div></div><br clear="none"></div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<div class="yiv9689702743yqt7204363243" id="yiv9689702743yqtfd81545"><br clear="none"></div></blockquote></div><div class="yiv9689702743yqt7204363243" id="yiv9689702743yqtfd09749"><br clear="none"></div></div><div class="yiv9689702743yqt7204363243" id="yiv9689702743yqtfd14535">
<br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></div></blockquote></div><div class="yiv9689702743yqt7204363243" id="yiv9689702743yqtfd71903"><br clear="none"></div></div></div></div><br><div class="yqt7204363243" id="yqtfd94491">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" target="_blank" href="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" target="_blank" href="">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div><br><br></div> </div> </div> </div> </div></body></html>