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)
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@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@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.
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@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@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@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@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.
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@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@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@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@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@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@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.
participantes (3)
-
Ari Clecius -
David Feitosa -
Fernando Mayer