Tarea de geometrías en R

En R s pueden hacer varias figuras o geometrías como lo son puntos, cadenas lineales o polígonos. Un punto es un vector numérico. Una línea o polígono son una matriz

Un punto con coordenadas (150, 300)

Point_1 <- st_point(c(150, 300)) 
plot(Point_1)

Ahora una línea que conecta el punto 1 (150, 300) y el punto 2 (300, 300)

library(sf)
Point_1 <- st_point(c(150, 300)) 
Point_2 <- st_point(c(300, 300))
L1 <- rbind(c(150, 300), c(300, 300))
plot(Point_1)

plot(Point_2)

plot(L1)

(ls <- st_linestring(L1))

LINESTRING (150 300, 300 300)

plot(ls)

NA
NA

Acontinuación se va a realizar una figura (casa sencilla)

library(sf)
Point_1 <- st_point(c(50, 50))
Point_2 <- st_point(c(100, 50))
Point_3 <- st_point(c(50, 100))
Point_4 <- st_point(c(100, 100))
Point_5 <- st_point(c(75, 120))
L1 <- rbind(c(50,50), c(100, 50))
L2 <- rbind(c(100,50), c(100, 100))
L3 <- rbind(c(100, 100), c(75, 120))
L4 <- rbind(c(75, 120), c(50, 100))
L5 <- rbind(c(50, 100), c(50, 50))
L6 <- rbind(c(50, 100), c(100, 100))
(mls <- st_multilinestring(list(L1, L2, L3, L4, L5, L6)))

MULTILINESTRING ((50 50, 100 50), (100 50, 100 100), (100 100, 75 120), (75 120, 50 100), (50 100, 50 50), (50 100, 100 100))

plot(mls)

Acontinuación se va a realizar una figura (casa con una puerta y dos ventanas)

library(sf)
Point_1 <- st_point(c(50, 50))
Point_2 <- st_point(c(100, 50))
Point_3 <- st_point(c(50, 100))
Point_4 <- st_point(c(100, 100))
Point_5 <- st_point(c(75, 120))
Point_6 <- st_point(c(63, 50))
Point_7 <- st_point(c(63, 75))
Point_8 <- st_point(c(87, 50))
Point_9 <- st_point(c(87, 75))
Point_10 <- st_point(c(50, 85))
Point_11 <- st_point(c(63, 85))
Point_12 <- st_point(c(63, 100))
Point_13 <- st_point(c(100, 85))
Point_14 <- st_point(c(87, 85))
Point_15 <- st_point(c(87,100))
L1 <- rbind(c(50,50), c(100, 50))
L2 <- rbind(c(100,50), c(100, 100))
L3 <- rbind(c(100, 100), c(75, 120))
L4 <- rbind(c(75, 120), c(50, 100))
L5 <- rbind(c(50, 100), c(50, 50))
L6 <- rbind(c(50, 100), c(100, 100))
L7 <- rbind(c(63, 50), c(63, 75))
L8 <- rbind(c(63, 75), c(87, 75))
L9 <- rbind(c(87, 75), c(87, 50))
L10 <-rbind(c(50, 85), c(63, 85))
L11 <-rbind(c(63, 85), c(63, 100))
L12 <-rbind(c(87,100), c(87, 85))
L13 <-rbind(c(87, 85), c(100, 85))
(mls <- st_multilinestring(list(L1, L2, L3, L4, L5, L6, L7, L8, L9, L10, L11, L12, L13)))

MULTILINESTRING ((50 50, 100 50), (100 50, 100 100), (100 100, 75 120), (75 120, 50 100), (50 100, 50 50), (50 100, 100 100), (63 50, 63 75), (63 75, 87 75), (87 75, 87 50), (50 85, 63 85), (63 85, 63 100), (87 100, 87 85), (87 85, 100 85))

plot(mls)

FIN