Caros da Lista, bom dia. Teria como inserir uma figura em num "image"? Grato, -- Hélio Gallo Rocha IFSULDEMINAS - Câmpus Muzambinho
e o q vc chama de image? alem disso, algo que a gente possa reproduzir? Em 13 de abril de 2014 11:00, Hélio Gallo Rocha <heliogallorocha@gmail.com>escreveu:
Caros da Lista, bom dia.
Teria como inserir uma figura em num "image"?
Grato,
-- Hélio Gallo Rocha IFSULDEMINAS - Câmpus Muzambinho
_______________________________________________ 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.
Boa noite Benilton, Image do pacote geoR Depois de pesquisar consegui inserir uma figura de extenção png com o pacote png, require(png) img <- readPNG("rosa_ventos.png") rasterImage(img, xleft = 358550, ybottom = 7656750, xright = 358590, ytop = 7656790) deu certo, mas não funciona quando quero colocar o arquivo no meio de quatro, usando par(mfrow=c(2,2)) Abraço Em 13 de abril de 2014 12:43, beniltoncarvalho [via R-br] < ml-node+s2285057n4661902h30@n4.nabble.com> escreveu:
e o q vc chama de image? alem disso, algo que a gente possa reproduzir?
Em 13 de abril de 2014 11:00, Hélio Gallo Rocha <[hidden email]<http://user/SendEmail.jtp?type=node&node=4661902&i=0>
escreveu:
Caros da Lista, bom dia.
Teria como inserir uma figura em num "image"?
Grato,
-- Hélio Gallo Rocha IFSULDEMINAS - Câmpus Muzambinho
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4661902&i=1> 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.
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4661902&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-tp4661902.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
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.p... ' 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 <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
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@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.p... ' 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
participantes (3)
-
Benilton Carvalho -
Hélio Gallo Rocha -
Éder Comunello