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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
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) |
