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))