Muito obrigado Jônatan, ajudou muito!!!
--
==
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro:
Obrigado Jônatan,
Desculpe se não fui claro na minha pergunta , mas a função
sugerida xyFromCell(r, df$cel):
x y
[1,] -162 -81
Retorna apenas a coordenada do pixel V1 = 61, gostaria de
extrair a coordenada do centro de todos os pixels de V1 a V10
x y cel
p.cen <- as.data.frame(xyFromCell(r, df$cel))
names(p.cen) <- c("xc", "yc")
df <- data.frame(df, p.cen)
df
#dput(df)
#structure(list(x = -150, y = -80, cel = 91, col = 1L, row = 10, V1 = 61,
V2 = 15, xc = -162, yc = -81), .Names = c("x", "y", "cel", "col", "row",
"V1", "V2", "xc", "yc"), row.names
Obrigado Jônatan,
Perfeita essa função usando getValuesBlocke consegui fazer a
extração de 10 valores na horizontal à partir de uma coordenada
arbitrária como xy(-150,80), porém não consigo agora capturar além dos
valores dos pixel a coordenada central desses pixel pelo output dado
use a função getValuesBlock do raster.
require(raster); require(sp)
set.seed(1)
## Criando um raster
r <- raster(nc=10, nr=10)
r <- setValues(r, round(runif(ncell(r))* 255))
#Consigo extrair os valores dos pixels de interesse dadas as coordenadas
centrais dos mesmos
x <- c(54,18,54,54)
y
Cara, não entendi direito o que você quer.
mas no meu entendimento vc precisa:
1- obter o nx,ny do seu raster
2- obter o index do seu ponto um i,j
e ai vc cria um vetor de 2 em 2 com seq (seq(i,ny,2))
E extrai pelo index
Caso não seja possíve extrair pelo index vc pode criar um vetor de
Prezados Membros,
Tenho um raster hipotético r:
require(raster); require(sp)
## Criando um raster
r <- raster(nc=10, nr=10)
r <- setValues(r, round(runif(ncell(r))* 255))
Consigo extrair os valores dos pixels de interesse dadas as
coordenadas centrais dos mesmos:
x <-