<div dir="ltr"><div>Alexandre,</div><div><br></div><div>Pelo que entendi você quer a coordenada do centro do pixel/célula identificado. Se for isso mesmo posso sugerir duas opções, conforme código abaixo:</div><div><br></div>
<font face="courier new, monospace">### <code r><br></font><div><div><font face="courier new, monospace">require(raster); require(sp)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">## Criando um raster</font></div>
<div><font face="courier new, monospace">r <- raster(nc=10, nr=10)</font></div><div><font face="courier new, monospace">r <- setValues(r, round(runif(ncell(r))* 255))</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">##Pontos selecionados</font></div><div><font face="courier new, monospace">x     <- c(44.25,33.06,63.22,71.35)</font></div><div><font face="courier new, monospace">y     <- c(22.00,81.90,15.18,71.03)</font></div>
<div><font face="courier new, monospace">pontos <- SpatialPoints(cbind(x,y))</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">cells <- cellFromXY(r, pontos); cells</font></div>
<div><font face="courier new, monospace">coordinates(r)[cells,] ## alternativa 1</font></div><div><font face="courier new, monospace">p.cen <- xyFromCell(r, cells); p.cen ## alternativa2</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">plot(r)</font></div><div><font face="courier new, monospace">points(pontos, col="red")</font></div><div><font face="courier new, monospace">points(p.cen)</font></div>
</div><div><font face="courier new, monospace">### </code></font></div><div><br></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br><div class="gmail_quote"><br></div></div></div>