<div>O código está abaixo.</div><div>os anexos mostram como ele deveria ser exportado e como está na realidade.</div><div><br></div><div>#######################################################</div><div># COSTRUINDO MAPAS</div>
<div>#######################################################</div><div>##Code (Comments are preceded by ##)</div><div> ## Load required packages</div><div><br></div><div># Limpando memsria.</div><div>rm(list=ls(all=TRUE))</div>
<div><br></div><div>library(maps)</div><div>library(sp)</div><div>library(maptools) </div><div>library(spdep) </div><div>library(classInt) </div><div>library(RColorBrewer) </div><div>library(shape)</div><div>
library(maps)</div><div>library(SDMTools)</div><div>library(latticeExtra)</div><div>library(ReadImages)</div><div>library(png)</div><div><br></div><div>rosa_dos_ventos = function(loc=c(-34.5, -8), size = 0.15, bearing=0, cols=1, cex=0.6,...)</div>
<div>{</div><div> cols <- rep(c("white","black"),8)</div><div> radii <- rep(size/c(1,4,2,4),4)</div><div> x <- radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1]</div><div> y <- radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2]</div>
<div> for (i in 1:15)</div><div> {</div><div> x1 <- c(x[i],x[i+1],loc[1])</div><div> y1 <- c(y[i],y[i+1],loc[2])</div><div> polygon(x1,y1,col=cols[i])</div><div> }</div><div> polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16])</div>
<div> b <- c("O","S","L","N")</div><div> for (i in 0:3) text((size+par("cxy")[1]-0.55)*cos(bearing+i*pi/2)+loc[1],</div><div> (size+par("cxy")[2]-0.60)*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex)</div>
<div>}</div><div><br></div><div>#Lendo dados</div><div>dados = read.table("c:\\Users\\postgres\\nasc_vivo_7mais_cons_pre_natal.csv", </div><div> sep = ";", header = FALSE)</div>
<div><br></div><div>colnames(dados) = c("codigos", "ano_2006","ano_2007","ano_2008",</div><div> "ano_2009","ano_2010","ano_2011","ano_2012")</div>
<div><br></div><div># Lendo mapa.</div><div>mapa = readShapePoly("c:/users/Julianna/Documents/SecSaude/saudemapa.shp")</div><div>proj4string(mapa) <- CRS("+init=epsg:4291")</div><div>#scaleXY(mapa, 1836656)</div>
<div><br></div><div><br></div><div># arquivo png </div><div>img <- readPNG("c:/users/Julianna/Documents/SecSaude/logo_pb.png") # seu arquivo png aqui</div><div>set.seed(123)</div><div>par(xpd = TRUE)</div><div>
<br></div><div><br></div><div>colors <- brewer.pal(6, "YlOrRd")</div><div>brks <- classIntervals(dados$ano_2008, n = 6,style="fixed", fixedBreaks=c(0, 20, 40, 60, 80, 100))</div><div>brks<- brks$brks</div>
<div><br></div><div>ID = match(substr(mapa$CODIGO,1,6),dados$codigos)</div><div>dados = dados[ID,]</div><div><br></div><div><div>png(filename="c:/users/Julianna/Documents/SecSaude/produtos_nascvivos/2006.png", height=768, width=1320, bg="white")</div>
<br class="Apple-interchange-newline"></div><div><br></div><div>plot(mapa, col = colors[findInterval(dados$ano_2006, brks,all.inside=TRUE)], axes = TRUE)</div><div><br></div><div>invisible(text(getSpPPolygonsLabptSlots(mapa), </div>
<div> labels=as.character(mapa$NOMEMUN_1), cex=0.45))</div><div> </div><div>title(main = "NASCIDOS VIVOS \nMaes com 7 ou mais consultas pre-natal", font.main = 2, cex.main = 1.5, xlab = "Longitude", ylab = "Latitude")</div>
<div><br></div><div>text(-35.7, -6.2, "ANO: 2006", cex = 1) </div><div><br></div><div>legend(-39.6,-7.5, c("0", "]0,20]", "]20,40]", "]40,60]", "]60,80]","Acima de 80"), fill = colors, bty="n", </div>
<div> x.intersp = .5, y.intersp = .6, cex = 0.8)</div><div> </div><div>rosa_dos_ventos(loc=c(-34.5,-7.9),size=0.15,cex=0.6, bearing=0, cols=1)</div><div> </div><div>SpatialPolygonsRescale(layout.scale.bar(), offset = c(-35,-8.25), scale = 1, </div>
<div> fill = c("transparent", "black"), plot.grid= FALSE)</div><div><br></div><div>text(-34.5, -8.3, "110.3 KM", cex= 0.8)</div><div><br></div><div>rasterImage(img, xleft = -39.5, ybottom = -5.9, xright = -38.7 , ytop = -5.6)</div>
<div><br></div><div><br></div><div>dev.off()</div><div><br></div><div><br></div><br><div class="gmail_quote">Em 19 de março de 2012 18:04, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Depois de um exemplo reproduzivel, poderemos ajudar melhor.<br>
<br>
b<br>
<br>
2012/3/19 Julianna Trindade <<a href="mailto:julianna@jubalitpb.com">julianna@jubalitpb.com</a>>:<br>
<div><div></div><div class="h5">> É verdade...eu alterei mas os elementos do plot tais como logo, legenda,<br>
> texto, saem da dimensão especificada.<br>
> Alguma sugestão??<br>
><br>
> Em 19 de março de 2012 17:32, Benilton Carvalho <<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>><br>
> escreveu:<br>
><br>
>> pra "paisagem", vc nao deveria usar "width" maior que "height"? mas<br>
>> pode ser q eu nao tenha entendido o q vc quis dizer...<br>
>><br>
>> 2012/3/19 Julianna Trindade <<a href="mailto:julianna@jubalitpb.com">julianna@jubalitpb.com</a>>:<br>
>> > Pessoal,<br>
>> ><br>
>> > gostaria que meu plot fosse automaticamente transformado em um arquivo<br>
>> > png<br>
>> > em paisagem.<br>
>> > Estou<br>
>> ><br>
>> > usando png(filename="c:/users/Julianna/Documents/SecSaude/produtos_nascvivos/2006.png",<br>
>> > height=1360, width=768, bg="white") e está exportando em retrato.<br>
>> ><br>
>> > Alguém, por favor, pode me ajudar??<br>
>> ><br>
>> ><br>
>> ><br>
>> > --<br>
>> > Julianna Trindade<br>
>> ><br>
>> > "Exalta-te, Senhor, na Tua força! Nós cantaremos e louvaremos o Teu<br>
>> > poder."<br>
>> ><br>
>> > Salmos 21; 13<br>
>> ><br>
>> > _______________________________________________<br>
>> > R-br mailing list<br>
>> > <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
>> > <a 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 href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça<br>
>> > código<br>
>> > mínimo reproduzível.<br>
>> _______________________________________________<br>
>> R-br mailing list<br>
>> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
>> <a 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 href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça<br>
>> código mínimo reproduzível.<br>
><br>
><br>
><br>
><br>
> --<br>
> Julianna Trindade<br>
><br>
> "Exalta-te, Senhor, na Tua força! Nós cantaremos e louvaremos o Teu poder."<br>
><br>
> Salmos 21; 13<br>
><br>
> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a 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 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<br>
> mínimo reproduzível.<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a 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 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.<br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Julianna Trindade <br><br>"Exalta-te, Senhor, na Tua força! Nós cantaremos e louvaremos o Teu poder."<br><br>Salmos 21; 13<br>