R Notebook

library(sf)

x <- st_point(c(1,2))
plot(x)

st_geometry(x)

Geometry set for 1 feature 
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: 1 ymin: 2 xmax: 1 ymax: 2
CRS:           NA

x <- st_point(c(1,2,3))
plot(x)

st_geometry(x)

Geometry set for 1 feature 
Geometry type: POINT
Dimension:     XYZ
Bounding box:  xmin: 1 ymin: 2 xmax: 1 ymax: 2
z_range:       zmin: 3 zmax: 3
CRS:           NA

p <- rbind(c(3,4), c(3,5), c(3,7), c(3,3), c(2,6), c(3,1))
mp <- st_multipoint(p)
plot(mp)

st_geometry(mp)

Geometry set for 1 feature 
Geometry type: MULTIPOINT
Dimension:     XY
Bounding box:  xmin: 2 ymin: 1 xmax: 3 ymax: 7
CRS:           NA

s1 <- rbind(c(0,3),c(0,4),c(1,5),c(2,5))
s2 <- rbind(c(0.2,3), c(0.2,4), c(1,4.8), c(2,4.8))
s3 <- rbind(c(0,4.4), c(0.6,5))
mls <- st_multilinestring(list(s1,s2,s3))

plot(mls)

p1 <- rbind(c(0,0), c(1,0), c(3,2), c(2,4), c(1,4), c(0,0))
p2 <- rbind(c(1,1), c(1,2), c(2,2), c(1,1))
pol <-st_polygon(list(p1,p2))
plot(pol)

sfc1 <- st_sfc(pol)

Error in st_sfc(pol) : could not find function "st_sfc"