De um ?mtext Lá vai ter tudo o que você precisa!
Tito Conte On Thu, Jan 17, 2013 at 12:37 PM, Humberto Hazin <[email protected]>wrote: > Bom dia pessoal, > > Como faço para colocar para colocar a legenda no eixo x, meio entre dois > gráficos? Por exemplo gostaria de adicional o texto “Relative Catchability” > entre os dois gráficos. Segue o link do gráfico resultado so script abaixo ( > https://www.dropbox.com/s/36tw2eabk3sc7lr/FigureOR_4.pdf) > > Abraços > > Humberto > > tableMat1a: > > Species lci or uci > 1 Bigeye tuna 0.0999 0.17 0.280 > 2 Yellowfin tuna 0.0366 0.07 0.135 > 3 Albacore 0.0850 0.18 0.391 > 4 Swordfish 0.0939 0.13 0.191 > 5 Sailfish 0.1257 0.25 0.498 > 6 White marlim 0.1500 0.30 0.390 > 7 Blue marlim 0.1291 0.29 0.637 > 8 Blue shark 0.1280 0.19 0.287 > 9 Crocodile shark 0.1120 0.16 0.223 > 10 Pelagic stingray 0.0449 0.17 0.619 > 11 Turtle oliva 0.1230 0.23 0.296 > 12 Oceanic whitetip shark 0.1881 0.50 0.770 > > > > tableMat1b: > > > Species lci or uci > 1 Bigeye tuna 0.00651 0.02 0.0647 > 2 Yellowfin tuna 0.08973 0.16 0.2702 > 3 Albacore 0.01370 0.05 0.1867 > 4 Swordfish 0.07696 0.12 0.1709 > 5 Sailfish 0.16000 0.20 0.4000 > 6 White marlim 0.05645 0.14 0.3382 > 7 Blue marlim 0.01200 0.18 0.2200 > 8 Blue shark 0.14176 0.21 0.3183 > 9 Crocodile shark 0.02888 0.12 0.5212 > 10 Pelagic stingray 0.04961 0.19 0.6875 > 11 Turtle oliva 0.15200 0.20 0.3220 > 12 Oceanic whitetip shark 0.23250 0.52 0.7700 > > > > tableMat1a<-read.csv("tableMetaGW.csv", header = TRUE, sep = ",", > quote="\"", dec=".",fill =TRUE) > tableMat1b<-read.csv("tableMetaGB.csv", header = TRUE, sep = ",", > quote="\"", dec=".",fill = TRUE) > > library(tools) > pdf(file='FigureOR_4.pdf', height=50, width=50, onefile=TRUE, > family='Helvetica', paper='a4r', pointsize=12) > par(mfrow=c(1,2)) > par(mar=c(5,11, 3, 0)) > y.axis <- c(length(tableMat1a$or):1) > plot(tableMat1a$or,y.axis, type = "p", axes = F, xlab = "", ylab = "", pch > = 19, cex = 1.2,xlim = c(0,1.2), xaxs = "r", main = "Green vs > White",yaxt='n') > segments(tableMat1a$lci, y.axis, tableMat1a$uci, y.axis, lwd = 1.5) > axis(1,at=seq(0,1.2,by=0.1),labels = F,tick =T,cex.axis = 1.2,mgp = > c(2,.7,0)) > axis(2, at = y.axis, label = tableMat1a$Specie, las = 1, tick = F, mgp = > c(2,.6,0),cex.axis = 1.2) > segments(1,1,1,30,lty=1) > box(bty = "n") > > par(mar=c(5,5, 3, 5)) > y.axis <- c(length(tableMat1b$or):1) > plot(tableMat1b$or,y.axis, type = "p", axes = F, xlab = "", ylab = "", pch > = 19, cex = 1.2,xlim = c(0,1.2), xaxs = "r", main = "Green vs > Blue",yaxt='n') > segments(tableMat1b$lci, y.axis, tableMat1b$uci, y.axis, lwd = 1.5) > axis(1,at=seq(0,1.2,by=0.1),labels = F,tick =T,cex.axis = 1.2,mgp = > c(2,.7,0)) > segments(1,1,1,30,lty=1) > box(bty = "n") > dev.off() > > > > > > Enviado do Email do Windows > > > _______________________________________________ > R-br mailing list > [email protected] > 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 [email protected] 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.
