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 col row V1 V2  V3  V4  V5  V6  V7  V8  V9 V10   xc  yc
1 -150 -80  91   1  10 61 15 164 223 199 203 116 105 207 154 -162 -81


Atenciosante,

-- 
======================================================================
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: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
e-mails:alexandresantosbr@yahoo.com.br 
        alexandre.santos@cas.ifmt.edu.br 
Lattes: http://lattes.cnpq.br/1360403201088680 
OrcID: orcid.org/0000-0001-8232-6722   -   ResearcherID: A-5790-2016
Researchgate: www.researchgate.net/profile/Alexandre_Santos10                       
LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/
======================================================================

p.cen <- as.data.frame(xyFromCell(r, df$cel))

names(p.cen) <- c("xc", "yc")

df <- data.frame(df, p.cen)

df