Hélio, bom dia!

Da forma que você está procedendo, dá pra utilizar o argumento 'xpd' em par(). A ideia é 'liberar' o uso do espaço entre figuras.

Complementarmente, tem a alternativa de usar a biblioteca sp() pra colocar o norte nos mapas e  'locator()' pra posicionar diretamente!

<code r>

nURL1 <- 'http://pixabay.com/static/uploads/photo/2013/07/12/13/43/arrows-147170_150.png'

download.file(nURL1, 'rosaVentos.png', mode='wb')

require(geoR)

plot(parana$bor, asp=1, type='l')

img <- png::readPNG('rosaVentos.png')

# locator(1) ### use para ajustar as coordenadas

rasterImage(img, xleft=800, xright=900, ytop=450, ybottom=350)

par(mfrow=c(1,2), xpd=T)

for (i in 1:2) plot(parana$bor, asp=1, type='l', col=i)

# locator(1) ### use para ajustar as coordenadas

rasterImage(img, xleft=-300, xright=-100, ytop=600, ybottom=400)

### Norte e barra de escala da biblioteca sp()

### Posicionamento por locator()

SpatialPolygonsRescale(layout.north.arrow(),offset=locator(1),scale=200,fill=c("black"),plot.grid=F)

SpatialPolygonsRescale(layout.scale.bar(),offset=locator(1),scale=100,fill=c("white","black"),plot.grid=F)

text(locator(1),"0")

text(locator(1),"100 unid.")

### </code>

Éder Comunello <[hidden email][hidden email]>
Dourados, MS - [22 16.5'S, 54 49'W]

_______________________________________________
R-br mailing list
[hidden email]
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.

---

If you reply to this email, your message will be added to the discussion below:

http://r-br.2285057.n4.nabble.com/Re-R-br-figura-tp4661902p4661908.html

To unsubscribe from R-br, click here.
NAML