<div dir="ltr"><div>Hélio, bom dia!</div><div><br></div><div>Da forma que você está procedendo, dá pra utilizar o argumento 'xpd' em par(). A ideia é 'liberar' o uso do espaço entre figuras.</div><div><br></div>
<div>Complementarmente, tem a alternativa de usar a biblioteca sp() pra colocar o norte nos mapas e  'locator()' pra posicionar diretamente!</div><div><br></div><div><font face="courier new, monospace"><code r></font></div>
<div><font face="courier new, monospace">nURL1 <- '<a href="http://pixabay.com/static/uploads/photo/2013/07/12/13/43/arrows-147170_150.png">http://pixabay.com/static/uploads/photo/2013/07/12/13/43/arrows-147170_150.png</a>'<br>
</font></div><div><font face="courier new, monospace">download.file(nURL1, 'rosaVentos.png', mode='wb')</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">require(geoR)</font></div>
<div><font face="courier new, monospace">plot(parana$bor, asp=1, type='l')</font></div><div><font face="courier new, monospace"><br></font></div><div><span style="font-family:'courier new',monospace">img <- png::readPNG('rosaVentos.png')</span><br>
</div><div><font face="courier new, monospace"># locator(1) ### use para ajustar as coordenadas</font></div><div><font face="courier new, monospace">rasterImage(img, xleft=800, xright=900, ytop=450, ybottom=350)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">par(mfrow=c(1,2), xpd=T)</font></div><div><font face="courier new, monospace">for (i in 1:2) plot(parana$bor, asp=1, type='l', col=i)</font></div>
<div><font face="courier new, monospace"># locator(1) ### use para ajustar as coordenadas</font></div><div><font face="courier new, monospace">rasterImage(img, xleft=-300, xright=-100, ytop=600, ybottom=400)</font></div><div>
<font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Norte e barra de escala da biblioteca sp()</font></div><div><font face="courier new, monospace">### Posicionamento por locator()</font></div>
<div><font face="courier new, monospace">SpatialPolygonsRescale(layout.north.arrow(),offset=locator(1),scale=200,fill=c("black"),plot.grid=F)</font></div><div><font face="courier new, monospace">SpatialPolygonsRescale(layout.scale.bar(),offset=locator(1),scale=100,fill=c("white","black"),plot.grid=F)</font></div>
<div><font face="courier new, monospace">text(locator(1),"0")</font></div><div><font face="courier new, monospace">text(locator(1),"100 unid.")</font></div><div><font face="courier new, monospace">### </code></font></div>
<div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>