Bufor z biblioteką SF

Bufor z wykorzystaniem biblioteki rgeos już Wam pokazaliśmy. Tym razem w wersji filmowej pokażemy wam jak użyć funkcji st_buffer z biblioteki sf.

Kod:

library(sf)

railway <- read_sf("d:/GIS_in_R/rail.shp")
plot(railway$geometry)

summary(railway)
buf <- st_buffer(railway,dist = 1000)

plot(buf$geometry,col="red")
plot(railway$geometry,add=TRUE)

w <- rep(500,nrow(railway))
w[86] <- 2000
buf <- st_buffer(railway,dist = w)
plot(buf$geometry,col="red")
buf <- st_buffer(railway,dist = w,endCapStyle = "SQUARE")
plot(buf$geometry)