<html><head><style data-externalstyle="true">
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph {
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
}
p.MsoListParagraphCxSpFirst, li.MsoListParagraphCxSpFirst, div.MsoListParagraphCxSpFirst, p.MsoListParagraphCxSpMiddle, li.MsoListParagraphCxSpMiddle, div.MsoListParagraphCxSpMiddle, p.MsoListParagraphCxSpLast, li.MsoListParagraphCxSpLast, div.MsoListParagraphCxSpLast {
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
line-height:115%;
}
</style></head><body><div data-externalstyle="false" style="font-family:Calibri,'Segoe UI',Meiryo,'Microsoft YaHei UI','Microsoft JhengHei UI','Malgun Gothic','Khmer UI','Nirmala UI',Tunga,'Lao UI',Ebrima,sans-serif;font-size:16px;"><div> </div><div>Tito muito obrigado consegui!!!</div><div data-focusfrompointer="true">André segue o código correto e com as tuas perguntas (que antes não havia entendido) respondidas</div><div data-focusfrompointer="true"> </div><div data-focusfrompointer="true">Abr</div><div data-focusfrompointer="true"> </div><div data-focusfrompointer="true">Humberto</div><div data-focusfrompointer="true"> </div><div data-focusfrompointer="true">pdf(file='FigureOR_4.pdf', height=50, width=50, onefile=TRUE, family='Helvetica', paper='a4r', pointsize=12)<br>par(mfrow=c(1,2))<br>par(mar=c(5,11, 3, 0))<br>y.axis <- c(length(tableMat1a$or):1)<br>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')<br>segments(tableMat1a$lci, y.axis, tableMat1a$uci, y.axis, lwd = 1.5)<br>#axis(1,at=seq(0,1.2,by=0.1),labels = T,tick =T,cex.axis = 1.2,mgp = c(2,.7,0))<br>axis(2, at = y.axis, label = tableMat1a$Specie, las = 1, tick = F, mgp = c(2,.6,0),cex.axis = 1.2)<br>segments(1,1,1,30,lty=1)<br>box(bty = "n")</div><div> </div><div data-focusfrompointer="true">par(mar=c(5,5, 3, 5))<br>y.axis <- c(length(tableMat1b$or):1)<br>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')<br>segments(tableMat1b$lci, y.axis, tableMat1b$uci, y.axis, lwd = 1.5)<br>#axis(1,at=seq(0,1.2,by=0.1),labels = T,tick =T,cex.axis = 1.2,mgp = c(2,.7,0))<br>segments(1,1,1,30,lty=1)<br>box(bty = "n")<br><strong>mtext("Relative Catchability",side=1,line=3,adj =-0.6)</strong><br>dev.off()</div><div data-focusfrompointer="true"> </div><div data-focusfrompointer="true"> </div><div data-focusfrompointer="true"> </div><div data-focusfrompointer="true"> </div><div data-signatureblock="true"><div> </div><div>Enviado do Email do Windows</div><div> </div></div> <div style="border-top-color: rgb(225, 225, 225); border-top-width: 1px; border-top-style: solid;"> <strong>De:</strong> Humberto Hazin<br> <strong>Enviado:</strong> 23 de janeiro de 2013 16:13<br> <strong>Para:</strong> R_br, R_br<br> <strong>Assunto:</strong> Re: [R-br] Legenda no eixo X entre dois gráficos<br> </div> <div> </div><div>Olá André e Tito,</div><div> </div><div>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</div><div> </div><div>abr</div><div> </div><div>Humberto </div><div> </div><div><div> </div><div>Enviado do Email do Windows</div><div> </div></div> <div style="border-top-color: rgb(225, 225, 225); border-top-width: 1px; border-top-style: solid;"> <strong>De:</strong> andrebvs@bol.com.br<br> <strong>Enviado:</strong> 23 de janeiro de 2013 13:46<br> <strong>Para:</strong> r-br@listas.c3sl.ufpr.br<br> <strong>Assunto:</strong> Re: [R-br] Legenda no eixo X entre dois gráficos<br> </div> <div> </div><div>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?</div>
<div> </div>
<div><br><br></div>
<hr style="border-top-color: rgb(204, 204, 204); border-top-width: 1px; border-top-style: solid;">
<div>Em 23/01/2013 09:10, <strong>Tito Conte < tito.conte@gmail.com ></strong> escreveu:</div>
<div dir="ltr">De um<br>?mtext<br><br>
<div>Lá vai ter tudo o que você precisa!</div>
</div>
<div class=" gmail_extra"><br>
<div>Tito Conte<br><br></div>
<br><br>
<div class=" gmail_quote">On Thu, Jan 17, 2013 at 12:37 PM, Humberto Hazin <span dir="ltr"><<a tabindex="-1" href="../../../undefined//compose?to=hghazin%40hotmail.com" target="_blank">hghazin@hotmail.com</a>></span> wrote:<br>
<blockquote class=" gmail_quote" style="margin: 0px 0px 0px 0.8ex; padding-left: 1ex; border-left-color: rgb(204, 204, 204); border-left-width: 1px; border-left-style: solid;">
<div>
<div style="font-family: Calibri,;">
<div>Bom dia pessoal,</div>
<div> </div>
<div>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 (<a tabindex="-1" href="https://www.dropbox.com/s/36tw2eabk3sc7lr/FigureOR_4.pdf" target="_blank">https://www.dropbox.com/s/36tw2eabk3sc7lr/FigureOR_4.pdf</a>) </div>
<div> </div>
<div>Abraços</div>
<div> </div>
<div>Humberto</div>
<div> </div>
<div>tableMat1a:</div>
<div>
<pre> 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</pre>
</div>
<div> </div>
<div> </div>
<div>tableMat1b:</div>
<div> </div>
<div>
<pre> 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</pre>
</div>
<div> </div>
<div> </div>
<div>tableMat1a<-read.csv("tableMetaGW.csv", header = TRUE, sep = ",", quote="\"", dec=".",fill =TRUE)<br> tableMat1b<-read.csv("tableMetaGB.csv", header = TRUE, sep = ",", quote="\"", dec=".",fill = TRUE)</div>
<div> </div>
<div>library(tools)<br>pdf(file='FigureOR_4.pdf', height=50, width=50, onefile=TRUE, family='Helvetica', paper='a4r', pointsize=12)<br> par(mfrow=c(1,2))<br>par(mar=c(5,11, 3, 0))<br>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')<br> segments(tableMat1a$lci, y.axis, tableMat1a$uci, y.axis, lwd = 1.5)<br>axis(1,at=seq(0,1.2,by=0.1),labels = F,tick =T,cex.axis = 1.2,mgp = c(2,.7,0))<br>axis(2, at = y.axis, label = tableMat1a$Specie, las = 1, tick = F, mgp = c(2,.6,0),cex.axis = 1.2)<br> segments(1,1,1,30,lty=1)<br>box(bty = "n")</div>
<div> </div>
<div>par(mar=c(5,5, 3, 5))<br>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')<br> segments(tableMat1b$lci, y.axis, tableMat1b$uci, y.axis, lwd = 1.5)<br>axis(1,at=seq(0,1.2,by=0.1),labels = F,tick =T,cex.axis = 1.2,mgp = c(2,.7,0))<br>segments(1,1,1,30,lty=1)<br>box(bty = "n")<br>dev.off()</div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div>Enviado do Email do Windows</div>
<div> </div>
</div>
</div>
<br>_______________________________________________<br> R-br mailing list<br> <a tabindex="-1" href="../../../undefined//compose?to=R-br%40listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br> <a tabindex="-1" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br> Leia o guia de postagem (<a tabindex="-1" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
</div>
</div>
<div> </div>
</div></body></html>