CURVATURE_TYPE (INFERENCIAL)
MARTIN SARMIENTO
2025-12-22
1 Configuración y Carga de Datos
##### UNIVERSIDAD CENTRAL DEL ECUADOR #####
#### AUTOR: MARTIN SARMIENTO ####
### CARRERA: INGENIERÍA EN PETRÓLEOS #####
#### VARIABLE TIPO DE CURVATURA ####
## DATASET ##
setwd("~/R INFERENCIAL/CURVATURE_TYPE")
# Cargar dataset
Datos <- read.csv("DataSet_prov.csv", sep = ";", fileEncoding = "latin1")
## Estructura de los datos
str(Datos)## 'data.frame': 5075 obs. of 30 variables:
## $ FID_ : int 0 2 3 4 5 6 10 11 12 13 ...
## $ OBJECTID : int 127 129 130 131 132 133 137 138 139 140 ...
## $ code : chr "00127-ARG-P" "00129-ARG-G" "00130-ARG-P" "00131-ARG-P" ...
## $ plant_name : chr "Aconcagua solar farm" "Altiplano 200 Solar Power Plant" "Altiplano 200 Solar Power Plant" "Anchoris solar farm" ...
## $ country : chr "Argentina" "Argentina" "Argentina" "Argentina" ...
## $ operational_status : chr "announced" "operating" "operating" "construction" ...
## $ longitude : chr "-68,8713" "-66,895798" "-66,926102" "-68,915001" ...
## $ latitude : chr "-32,998501" "-24,1392" "-24,073999" "-33,330101" ...
## $ elevation : int 929 4000 4000 937 865 858 570 1612 665 3989 ...
## $ area : chr "250,337006" "4397290" "5774,399902" "645,163025" ...
## $ size : chr "Small" "Big" "Small" "Small" ...
## $ slope : chr "0,574179" "1,60257" "6,24265" "0,902748" ...
## $ slope_type : chr "Plano o casi plano" "Plano o casi plano" "Moderado" "Plano o casi plano" ...
## $ curvature : chr "0,000795" "-0,002781" "-0,043699" "0,002781" ...
## $ curvature_type : chr "Superficies planas o intermedias" "Superficies planas o intermedias" "Superficies cóncavas / Valles" "Superficies planas o intermedias" ...
## $ aspect : chr "55,124672" "188,707367" "270,913513" "108,434952" ...
## $ aspect_type : chr "Northeast" "South" "West" "East" ...
## $ dist_to_road : chr "127,2827045" "56014,95403" "52696,78572" "335,9280031" ...
## $ ambient_temperature : chr "12,6" "6,8" "6,8" "13,1" ...
## $ ghi : chr "6,11" "8,012" "7,878" "6,119" ...
## $ humidity : chr "53,74" "53,74" "53,74" "53,74" ...
## $ wind_speed : chr "3,7789" "7,02062" "8,32836" "3,87037" ...
## $ wind_direction : chr "55,099998" "55,099998" "55,099998" "55,099998" ...
## $ dt_wind : chr "Northeast" "Northeast" "Northeast" "Northeast" ...
## $ solar_aptitude : chr "0,746197" "0,8" "0,726996" "0,595309" ...
## $ solar_aptitude_rounded: int 7 8 7 6 7 7 7 8 7 8 ...
## $ solar_aptittude_class : chr "Alta" "Alta" "Alta" "Media" ...
## $ capacity : chr "25" "101" "107" "180" ...
## $ optimal_tilt : int 31 26 26 31 33 30 31 29 31 27 ...
## $ pv_potential : chr "4,983" "6,389" "6,392" "4,969" ...##
## Adjuntando el paquete: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union2 Extraer Variable
3 Tabla de Distribución de Frecuencias
# Tabla de frecuencias absolutas
Tabla <- as.data.frame(TDF_curvature)
# Renombrar columna de frecuencia
colnames(Tabla) <- c("Curvature", "ni")
# Asegurar tipo character
Tabla$Curvature <- as.character(Tabla$Curvature)
# Crear porcentaje
Tabla$`hi (%)` <- (Tabla$ni / sum(Tabla$ni)) * 100
# Fila total
fila_total_curv <- tibble(
Curvature = "TOTAL",
ni = sum(Tabla$ni),
`hi (%)` = sum(Tabla$`hi (%)`)
)
# Unir fila total
tabla_Final <- bind_rows(Tabla, fila_total_curv)
# TABLA GT
tabla_curv_gt <- tabla_Final %>%
gt() %>%
tab_header(
title = md("**Tabla N°1 de Distribución de Frecuencias de Tipo de Curvatura de las Plantas Solares**")
) %>%
tab_source_note(
source_note = "Autor: Martin Sarmiento"
) %>%
cols_label(
Curvature = "Tipo de Curvatura",
ni = "Frecuencia (ni)",
`hi (%)` = "Porcentaje (hi%)"
) %>%
fmt_number(
columns = `hi (%)`,
decimals = 2
) %>%
tab_options(
heading.title.font.size = px(16),
column_labels.background.color = "#F0F0F0"
)
# Mostrar tabla
tabla_curv_gt| Tabla N°1 de Distribución de Frecuencias de Tipo de Curvatura de las Plantas Solares | ||
| Tipo de Curvatura | Frecuencia (ni) | Porcentaje (hi%) |
|---|---|---|
| Superficies cóncavas / Valles | 405 | 7.98 |
| Superficies convexas / Crestas | 401 | 7.90 |
| Superficies planas o intermedias | 4269 | 84.12 |
| TOTAL | 5075 | 100.00 |
| Autor: Martin Sarmiento | ||
4 Análisis Gráfico
4.1 Diagramas de Barras de Cantidad
# Diagrama de barrras ni
par(mar = c(13, 4, 4, 2))
barplot(TDF_curvature,
main = "Gráfica N°1: Distribución de Cantidad de Plantas Solares por Tipo de Curvatura",
ylab = "Cantidad",
col = "#EEE685",
las = 2,
cex.names = 0.7,
cex.main = 1,
ylim = c(0, max(TDF_curvature) * 1.2))
mtext("Tipo de Curvatura", side = 1, line = 11)
4.2 Diagramas de Barras Porcentual
# Diagrama de barrras hi
porcentajes_curv <- TDF_curvature / sum(TDF_curvature) * 100
par(mar = c(13, 4, 4, 2))
barplot(porcentajes_curv,
main = "Gráfica N°2: Distribución Porcentual de las Plantas Solares por Tipo de Curvatura",
ylab = "Porcentaje %",
col = "#EEE685",
las = 2,
cex.names = 0.7,
cex.main = 1,
ylim = c(0, max(porcentajes_curv) * 1.2))
mtext("Tipo de Curvatura", side = 1, line = 11)
5 Modelos de Probabilidad
# Probabilidad
P_curv <- Tabla$ni / sum(Tabla$ni)
P_curv <- P_curv[Tabla$Curvature != "TOTAL"]
# Nombres de los países
nombres_curv <- Tabla$Curvature[Tabla$Curvature != "TOTAL"]
par(mar = c(13, 4, 4, 2))
barplot(P_curv,
main = "Gráfica N°3: Distribución de Probabilidad de las Plantas Solares por Tipo de Curvatura",
ylab = "Probabilidad",
col = "#EEE685",
names.arg = nombres_curv,
las = 2,
cex.names = 0.7,
cex.main = 0.9)
mtext("Tipo de Curvatura", side = 1, line = 11)
5.1 Probabilidad
¿Cuál es la probabilidad de que una planta solar tenga un tipo de curvatura específico?
tipo_curvatura <- "Superficies planas o intermedias"
probabilidad_curv <- round(
(Tabla$ni[Tabla$Curvature == tipo_curvatura] /
sum(Tabla$ni[Tabla$Curvature != "TOTAL"])) * 100,
2
)
print(paste("La probabilidad es de:", probabilidad_curv, "%"))## [1] "La probabilidad es de: 84.12 %"