r - R でラスターからバッファーを抽出する

Question

私はRと空間分析の初心者です。生息地ポリゴンのセルが 1 に等しいラスターがあります。

 img <- readPNG("Paysage.png")
 map <- raster(img[,,2],xmn=0, xmx=999, ymn=0, ymx=999)
 projection(map) <- "+proj=utm +zone=18 +ellps=GRS80 +datum=NAD83 +units=m +no_defs"
 map[] <- polygons[,c("id_polygon")] 
 map[ map > 0] <- 1

このラスターから、ポリゴンごとに、特定のポリゴンの周囲 1 km のバッファー内にあるすべてのポリゴン セルが 1 に等しく、他のすべてのマトリックス セルが 0 に等しいラスターを構築するにはどうすればよいでしょうか。

どうもありがとうございました。