<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"><span>Carlos,</span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span>Eu tentaria algo assim:</span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style:
normal;"><span>library (raster) #carrega pacote exigido</span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span>r <- raster('ETOPO1_Ice_g_geotiff.tif') #carrega arquivo de trabalho</span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span>r [ r<0 ] <- NA #atribui NA a todos os valores negativos no raster.</span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span>E caso você queira atribuir NA a um escopo de
valores, pode ser mais fácil criar uma função:</span></div><div style="background-color: transparent;"><span><div style="background-color: transparent;"><br></div><div style="background-color: transparent;"><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent;">vals <- c(0,24,32,56) # estes são os valores que você quer eliminar da tabela de dados do raster</div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent;">fun <- function (x) {</div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent;"> x <- ifelse (x %in% vals, 1, NA) # aqui você substitui os valores acima por "1" e atribui NA para todo o resto. Você pode
substituir o "1" por vals</div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal; background-color: transparent;">}</div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0); font-family: 'times new roman', 'new york', times, serif; font-size: 16px; font-style: normal;">E então aplicá-la sobre o raster:</div><div>r.new <- calc (r, fun)<br></div></div></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">Uma vantagem de usar funções é pode realizar uma tarefa
para diversos arquivos sem precisar repetir comandos para cada um deles.</div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span><br></span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><span>Espero que ajude,</span></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">Thiago.</div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"><br></div> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1">
<b><span style="font-weight:bold;">From:</span></b> D'Apolito <carlosdapolito@gmail.com><br> <b><span style="font-weight: bold;">To:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Sent:</span></b> Monday, November 19, 2012 8:15 PM<br> <b><span style="font-weight: bold;">Subject:</span></b> [R-br] excluir mar no ETOPO<br> </font> </div> <br><div id="yiv299954006"><div><div style="text-indent:0px!important;">Prezados,</div></div><div style="text-indent:0px!important;"><br></div><div style="text-indent:0px!important;">Estou graficando mapas com os dados do ETOPO01 de elevação e gostaria de excluir o mar, para que os dados iniciem em zero ao invés de números negativos (profundidades dos oceanos).</div>
<div style="text-indent:0px!important;">Qualquer ajuda é bem vinda, desde já agradeço</div><div style="text-indent:0px!important;"><br>Att</div><div style="text-indent:0px!important;">Carlos</div><div style="text-indent:0px!important;">
<br></div><div style="text-indent:0px!important;">#código:</div><div style="text-indent:0px!important;"><br></div><div>library(raster) </div><div>library(rgdal)</div><div><br></div><div>etopo<-"ETOPO1_Ice_g_geotiff.tif"</div>
<div>r.etopo<-raster(etopo)</div><div><br></div><div>ext <- extent(-95,-35,-31,31)</div><div><br></div><div>zoom(r.etopo, ext=ext,col=rev(gray.colors(12)))</div><div><br></div><div><br></div><div><br></div><div><br>
</div><div><br></div>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </div></body></html>