E aí Humberto, como ficou o comando finalizado para resolver seu problema? Porque, acabou que alguns colegas te ajudaram aqui, ficando um pouco espalhado as informações, então, copia e cola aqui o resultado final da rotina!
Att.
André
Em 25/10/2012 17:28, Humberto < hghazin@hotmail.com > escreveu:
este my_theme é um tema que eu utilizo em meus gráficos. Basta alterar nos locais certos
quanto ao posicionamento da linha vertical, substitua 'aes(x=0)' por 'aes(x=1)'
[]s
Leonard de Assis
assis leonard gmail com
Em 25/10/2012 13:18, Humberto escreveu:
Olá Andre, Ivan e Leonard
Muito obrigado pela ajuda! eu consegui dessa forma aqui! Porém no eixo dos x esta aperecendo numeros que se sobrepostos aos nomes das espécies que não estou conseguindo retirar. Alguem poderia me ajudar nesse sentido!
Gostei dessa alternativa do forestplot. Como faço para retirar esse background (cinza) do forestplot e adicionar a linha vertical no 1?
Em 10/25/2012 12:09 AM, Leonard de Assis escreveu:
Andre,
vi a pouco na lista do ggplot2 um script que pode ser o que voce procura.
# d is a data frame with 4 columns # d$x gives variable names # d$y gives center point # d$ylo gives lower limits # d$yhi gives upper limits forestplot require(ggplot2) p geom_pointrange() + coord_flip() + geom_hline(aes(x=0), lty=2) + ylab(xlab) + xlab(ylab) #switch because of the coord_flip() above return(p) }
# Create some dummy data. d y = rnorm(10, .05, 0.1)) d forestplot(d)
[]s
Leonard de Assis
assis leonard gmail com
Em 24/10/2012 23:55, andrebvs escreveu:
Olá Humberto!
Eu até começei a fazer o que estava querendo, porém, não consegui implementar os intervalos de confianças com as respectivas médias. Segue um script abaixo até onde cheguei, se alguém puder continuar e sanar sua dúvida, seria uma grande ajuda!
library(fields) plot(xlim=c(0,1.8),5:10, bty='n',type="n",axes=F,xlab="Relative catchability",ylab="") x y u v axis(1,lwd=2,at = x,labels = formatC(x, format="fg")) abline(v = 1, col = "black",lty=1,lwd=2) arrow.plot(x[6],y[6],v,u,arrow.ex=.4, length=.2, col='black', lwd=2) arrow.plot(x[6],y[6],u-360,v-45,arrow.ex=.5, length=.2, col='black', lwd=2)