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 <dot> leonard <at> gmail <dot> 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 <- function(d, xlab="Odds
Ratio", ylab="Study"){
require(ggplot2)
p <- ggplot(d, aes(x=x, y=y, ymin=ylo,
ymax=yhi)) +
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 <- data.frame(x = toupper(letters[1:10]),
y = rnorm(10, .05, 0.1))
d <- transform(d, ylo = y-1/10, yhi=y+1/10)
forestplot(d)
[]s
Leonard de Assis
assis <dot> leonard <at> gmail <dot> 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 <- seq(0.0,1.8,by=0.2)
y <- seq(5,14)
u <- 1
v <- 50