Calculo del área de una sección del río | r studio |: SO EASY

Removemos objetos previos
rm(list = ls(all = TRUE)) # clear workspace
cat("\f") # Borra la consola
dev.off() # Borra las plots
Ajuste del directorio
setwd("G:/UAAAN/MATERIAS/2021/OHF")
La libreria y los datos
library(readxl)
Datos = read_excel("Medidas_cauce.xlsx"); Datos
attach(Datos)
Las liberias de SIG
library(sf)
library(sp)
########## en dos lineas
Cauce = plot(st_polygon(list(cbind(x,y))))
Area = st_area(st_polygon(list(cbind(x,y))));Area
########### desglosado paso a paso
Combinar [concatenar] x, y
c1 = cbind(x,y); c1
veamos de que class es (c1)
class (c1)
crear poligono
p1 = st_polygon(list(c1))
plot poligono solamente
plot(p1)
Mostrar las medidas de alto y ancho
plot(p1, axes=T)
calculo del area
Area = st_area(p1); Area
text(x = mean(x), y = mean(y), # donde vamos a ubicar el txt
label = st_area(p1)) # colocar el area
Pogamos lineas verticales
abline(v=min(x):max(x))