[R-br] (sem assunto)

[Ari Clecius]

Obrigado Fernando, o resultado final ficou muito bom.

Att,
 
Ari Clecius Alves de Lima
Engenheiro Químico
Me. Engenharia Civil
(085)87687786
(085)33669042



Em Segunda-feira, 6 de Janeiro de 2014 14:17, Fernando Mayer <fernandomayer em gmail.com> escreveu:
 
Uma opção seria

library(scatterplot3d)
x=c(-1,-1,-1,-1,-1,0,1,0,0,1,0,0,1,1,0)
y=c(-1,-1,0,1,0,1,0,-1,-1,-1,-1,1,1,0,0)
z=c(-1,0,1,0,-1,-1,-1,-1,1,0,-1,1,0,1,0)
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")
w$points3d(x,y,z,col="red",pch=20,cex=5)

# calcula media e desvio por ponto
med <- format(apply(cbind(x, y, z), 1, mean), digits = 3)
dp <- format(apply(cbind(x, y, z), 1, sd), digits = 3)
dp <- paste("(", dp, ")", sep = "")
# cria o label
lab <- paste(med, dp, sep = "\n")
# insere o label
text(w$xyz.convert(x, y, z), labels = lab, pos = 4, cex = .7)





---
Fernando de Pol Mayer
Doutorando em Estatística e Experimentação Agronômica
Escola Superior de Agricultura "Luiz de Queiroz" - ESALQ
Universidade de São Paulo - USP
URL: http://fernandomayer.github.io
e-mail: fernando.mayer [@] {gmail.com, usp.br}


2014/1/6 David Feitosa <contato em davidfeitosa.com>

Existe a função text( ) que permite vc add um texto em uma dada coordenada (x,y).
>É isso o que vc quer?
>
>
>
>
>
>
>Atenciosamente,
>
>David Feitosa
>
>
>
>(\_(\
>(=°;°)
>(("")("")
>
>
>Em 6 de janeiro de 2014 12:46, Ari Clecius <ari072000 em yahoo.com.br> escreveu:
>
>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?
>>
>>
>>Att,
>> 
>>Ari Clecius Alves de Lima
>>Engenheiro Químico
>>Me. Engenharia Civil
>>(085)87687786
>>(085)33669042
>>
>>
>>#código
>>library(scatterplot3d)
>>x=c(-1,-1,-1,-1,-1,0,1,0,0,1,0,0,1,1,0)
>>y=c(-1,-1,0,1,0,1,0,-1,-1,-1,-1,1,1,0,0)
>>z=c(-1,0,1,0,-1,-1,-1,-1,1,0,-1,1,0,1,0)
>>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")
>>w$points3d(x,y,z,col="red",pch=20,cex=5)
>>
>>
>>_______________________________________________
>>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.
>


_______________________________________________
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/20140106/a7ffc356/attachment.html>