Data Engineering and BI courses are free this week!
pgeometry object with componentsThis function creates a pgeometry object from a data.frame or a list of components.
create_pgeometry(components, type)A pgeometry object.
A list of component objects or a data.frame. The type of each component must be the same for all components.
A character value that indicates the type of the desired pgeometry object.
It should be either "PLATEAUPOINT", "PLATEAULINE", or "PLATEAUREGION". It must be compatible with
the components given in components parameter.
The create_pgeometry function creates a pgeometry object of a given type. This object is built by using either a
list of component objects or a dataframe (or tibble). If a dataframe is given, it must have two columns: the first one is
a sfc object and second one indicates the membership degree of each respective object of the sfc column.
library(sf)
# Example 1 - Creating an `PLATEAUPOINT` object.
# Creating components for the plateau point object
v1 <- rbind(c(1,2), c(3,4))
v2 <- rbind(c(1,4), c(2,3),c(4,4))
md1 <- 0.2
md2 <- 0.1
md3 <- 0.4
pts1 <- rbind(c(1, 2), c(3, 2))
pts2 <- rbind(c(1, 1), c(2, 3), c(2, 1))
pts3 <- rbind(c(2, 2), c(3, 3))
comp1 <- component_from_sfg(st_multipoint(pts1), md1)
comp2 <- component_from_sfg(st_multipoint(pts2), md2)
comp3 <- component_from_sfg(st_multipoint(pts3), md3)
# Creating the plateau point object as a pgeometry object with 3 components
plateau_point_pgeom <- create_pgeometry(list(comp1, comp2, comp3), "PLATEAUPOINT")
# Example 2 - Creating an `PLATEAULINE` object.
lpts1 <- rbind(c(0, 0), c(1, 1))
lpts2 <- rbind(c(1, 1), c(1.2, 1.9), c(2, 1))
lpts3 <- rbind(c(2, 1), c(1.5, 0.5))
comp4 <- component_from_sfg(st_linestring(lpts1), 0.4)
comp5 <- component_from_sfg(st_linestring(lpts2), 1)
comp6 <- component_from_sfg(st_linestring(lpts3), 0.7)
plateau_line <- create_pgeometry(list(comp4, comp5, comp6), "PLATEAULINE")
Run the code above in your browser using DataLab