[R-br] figura

[Hélio Gallo Rocha]

Caro Éder, funcionou, vou adaptar pro meu material.

Mais uma vez, grato

Hélio


2014-04-14 11:50 GMT-03:00 Eder Comunello [via R-br] <
ml-node+s2285057n4661908h16 em n4.nabble.com>:

> 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]<http://user/SendEmail.jtp?type=node&node=4661908&i=0>[hidden
> email] <http://user/SendEmail.jtp?type=node&node=4661908&i=1>>
> Dourados, MS - [22 16.5'S, 54 49'W]
>
>
>
> _______________________________________________
> R-br mailing list
> [hidden email] <http://user/SendEmail.jtp?type=node&node=4661908&i=2>
> 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<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4>
> .
> NAML<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>



-- 
Hélio Gallo Rocha
IFSULDEMINAS - Câmpus Muzambinho
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140414/e8ac243e/attachment.html>