constructs sfg MULTILINESTRING object
sfg_multilinestring(
obj,
x = NULL,
y = NULL,
z = NULL,
m = NULL,
linestring_id = NULL
)matrix or data.frame
x geometry column
y geometry column
z geometry column
m geometry column
column of ids for lines
sfg object of MULTILINESTRING geometry
sfg_multilinestring( matrix( 1:24, ncol = 2 ) )
#> [[1]]
#> [,1] [,2]
#> [1,] 1 13
#> [2,] 2 14
#> [3,] 3 15
#> [4,] 4 16
#> [5,] 5 17
#> [6,] 6 18
#> [7,] 7 19
#> [8,] 8 20
#> [9,] 9 21
#> [10,] 10 22
#> [11,] 11 23
#> [12,] 12 24
#>
#> attr(,"class")
#> [1] "XY" "MULTILINESTRING" "sfg"
sfg_multilinestring( matrix( 1:24, ncol = 3 ) )
#> [[1]]
#> [,1] [,2] [,3]
#> [1,] 1 9 17
#> [2,] 2 10 18
#> [3,] 3 11 19
#> [4,] 4 12 20
#> [5,] 5 13 21
#> [6,] 6 14 22
#> [7,] 7 15 23
#> [8,] 8 16 24
#>
#> attr(,"class")
#> [1] "XYZ" "MULTILINESTRING" "sfg"
sfg_multilinestring( matrix( 1:24, ncol = 4 ) )
#> [[1]]
#> [,1] [,2] [,3] [,4]
#> [1,] 1 7 13 19
#> [2,] 2 8 14 20
#> [3,] 3 9 15 21
#> [4,] 4 10 16 22
#> [5,] 5 11 17 23
#> [6,] 6 12 18 24
#>
#> attr(,"class")
#> [1] "XYZM" "MULTILINESTRING" "sfg"
## different lines
m <- cbind( matrix( 1:24, ncol = 2 ), c(rep(1, 6), rep(2, 6) ) )
sfg_multilinestring( obj = m, x = 1, y = 2, linestring_id = 3 )
#> [[1]]
#> [,1] [,2]
#> [1,] 1 13
#> [2,] 2 14
#> [3,] 3 15
#> [4,] 4 16
#> [5,] 5 17
#> [6,] 6 18
#>
#> [[2]]
#> [,1] [,2]
#> [1,] 7 19
#> [2,] 8 20
#> [3,] 9 21
#> [4,] 10 22
#> [5,] 11 23
#> [6,] 12 24
#>
#> attr(,"class")
#> [1] "XY" "MULTILINESTRING" "sfg"
## just specifying linestring_id will use all others as the geometries
sfg_multilinestring( obj = m, linestring_id = 3 )
#> [[1]]
#> [,1] [,2]
#> [1,] 1 13
#> [2,] 2 14
#> [3,] 3 15
#> [4,] 4 16
#> [5,] 5 17
#> [6,] 6 18
#>
#> [[2]]
#> [,1] [,2]
#> [1,] 7 19
#> [2,] 8 20
#> [3,] 9 21
#> [4,] 10 22
#> [5,] 11 23
#> [6,] 12 24
#>
#> attr(,"class")
#> [1] "XY" "MULTILINESTRING" "sfg"
df <- data.frame( x = 1:12, y = 1:12, z = 13:24, id = c(rep(1,6), rep(2,6)))
sfg_multilinestring( df, x = "x", y = "y" )
#> [[1]]
#> [,1] [,2]
#> [1,] 1 1
#> [2,] 2 2
#> [3,] 3 3
#> [4,] 4 4
#> [5,] 5 5
#> [6,] 6 6
#> [7,] 7 7
#> [8,] 8 8
#> [9,] 9 9
#> [10,] 10 10
#> [11,] 11 11
#> [12,] 12 12
#>
#> attr(,"class")
#> [1] "XY" "MULTILINESTRING" "sfg"
sfg_multilinestring( df, x = "x", y = "y", linestring_id = "id" )
#> [[1]]
#> [,1] [,2]
#> [1,] 1 1
#> [2,] 2 2
#> [3,] 3 3
#> [4,] 4 4
#> [5,] 5 5
#> [6,] 6 6
#>
#> [[2]]
#> [,1] [,2]
#> [1,] 7 7
#> [2,] 8 8
#> [3,] 9 9
#> [4,] 10 10
#> [5,] 11 11
#> [6,] 12 12
#>
#> attr(,"class")
#> [1] "XY" "MULTILINESTRING" "sfg"
sfg_multilinestring( df, linestring_id = "id" )
#> [[1]]
#> [,1] [,2] [,3]
#> [1,] 1 1 13
#> [2,] 2 2 14
#> [3,] 3 3 15
#> [4,] 4 4 16
#> [5,] 5 5 17
#> [6,] 6 6 18
#>
#> [[2]]
#> [,1] [,2] [,3]
#> [1,] 7 7 19
#> [2,] 8 8 20
#> [3,] 9 9 21
#> [4,] 10 10 22
#> [5,] 11 11 23
#> [6,] 12 12 24
#>
#> attr(,"class")
#> [1] "XYZ" "MULTILINESTRING" "sfg"