Tito muito obrigado consegui!!!

André segue o código correto e com as tuas perguntas (que antes não havia entendido) respondidas

Abr

Humberto

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 = T, 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 = T,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 = T, 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 = T,tick =T,cex.axis = 1.2,mgp = c(2,.7,0))
segments(1,1,1,30,lty=1)
box(bty = "n")
mtext("Relative Catchability",side=1,line=3,adj =-0.6)
dev.off()

Enviado do Email do Windows

De: Humberto Hazin
Enviado: ‎23‎ de ‎janeiro‎ de ‎2013 ‎16‎:‎13
Para: R_br, R_br
Assunto: Re: [R-br] Legenda no eixo X entre dois gráficos

Olá André e Tito,

Eu realmente não entendi tua pergunta André! Eu vou tentar aqui a solução pela dica do Tito e se conseguir posto aqui o resultado

abr

Humberto

Enviado do Email do Windows

De: andrebvs@bol.com.br
Enviado: ‎23‎ de ‎janeiro‎ de ‎2013 ‎13‎:‎46
Para: r-br@listas.c3sl.ufpr.br
Assunto: Re: [R-br] Legenda no eixo X entre dois gráficos

O seu gráfico ainda não está igual ao que deseja, falta colocar os valores no eixo X e fechar a caixa (box) onde ficam os intervalos. Como vc vai fazer isso?

Em 23/01/2013 09:10, Tito Conte < tito.conte@gmail.com > escreveu:

De um
?mtext

Lá vai ter tudo o que você precisa!

Tito Conte

On Thu, Jan 17, 2013 at 12:37 PM, Humberto Hazin <hghazin@hotmail.com> 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 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 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
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.