GIS_R.R

#UNIVERSIDAD CENTRAL DEL ECUADOR
#FACULTAD DE INGENIERÍA EN GEOLOGÍA, MINAS, PETRÓLEOS Y AMBIENTAL
#SISTEMAS DE INFORMACIÓN GEOGRÁFICA Y TELEDETECCIÓN
#NOMBRE: Chicaiza Mayra
#ANÁLISIS ESTADÍSTICO DE LAS CONCENTRACIONES DE METÁLES TÓXICOS
setwd("~/GIS RSTUDIO")
Datos<-read.csv("heavy_metals_tutorial.csv", header = TRUE, sep = ";", dec = ".")
library(psych)

## Warning: package 'psych' was built under R version 3.6.3

library(PASWR)

## Warning: package 'PASWR' was built under R version 3.6.3

## Loading required package: e1071

## Warning: package 'e1071' was built under R version 3.6.3

## Loading required package: MASS

## Loading required package: lattice

########ARSÉNICO######
Arsenico<-Datos$ARSENIC
EDA(Arsenico)

## [1] "Arsenico"

## Size (n)  Missing  Minimum   1st Qu     Mean   Median   TrMean   3rd Qu 
##  219.000    0.000    0.000    0.000    0.103    0.000    0.077    0.160 
##     Max.   Stdev.     Var.  SE Mean   I.Q.R.    Range Kurtosis Skewness 
##    1.120    0.186    0.035    0.013    0.160    1.120    6.774    2.405 
## SW p-val 
##    0.000

plot(Arsenico)

multi.hist(x = Arsenico, dcol = c("blue", "red"), dlty = c("dotted", "solid"), 
           main = "HISTOGRAMA DE LA CONCENTRACÓN DE ARSENICO")

######CONCLUSIÓN######
#Los valores de la concentración de arsénico fluctúan entre
# 0.0 y 0.15 mg/l y estan en torno a 0.00 mg/l siendo un 
#conjunto de datos muy heterogeneo los valores se acumulan fuertemente
#en los valores bajos de la variable por lo tanto el comportamiento
#de la variable es beneficioso ya que existen bajas concentraciones 
#de este metal que es perjudicial para el medio ambiente. Dañando
#los distintos ecosistemas, agua, aire y suelo. 

########CADMIO######
Cadmio<-Datos$CADMIUM
EDA(Cadmio)

## [1] "Cadmio"

## Size (n)  Missing  Minimum   1st Qu     Mean   Median   TrMean   3rd Qu 
##  219.000    0.000    0.000    0.180    0.246    0.220    0.237    0.300 
##     Max.   Stdev.     Var.  SE Mean   I.Q.R.    Range Kurtosis Skewness 
##    0.710    0.113    0.013    0.008    0.120    0.710    2.811    1.344 
## SW p-val 
##    0.000

plot(Cadmio)

multi.hist(x = Cadmio, dcol = c("blue", "red"), dlty = c("dotted", "solid"), 
           main = "HISTOGRAMA DE LA CONCENTRACÓN DE CADMIO")

######CONCLUSIÓN######
#Los valores de la concentración de cadmio fluctúan entre
# 0.0 y 0.70 mg/l y estan en torno a 0.22 mg/l siendo un 
#conjunto de datos heterogeneo los valores se acumulan fuertemente 
#en los valores medios-bajos de la variable por lo tanto el comportamiento
#de la variable es beneficioso ya que no existen concentraciones muy altas
#de este metal que es perjudicial para el medio ambiente. Dañando
#los distintos ecosistemas, agua, aire y suelo. 

########MERCURIO######
Mercurio<-Datos$MERCURY
EDA(Mercurio)

## [1] "Mercurio"

## Size (n)  Missing  Minimum   1st Qu     Mean   Median   TrMean   3rd Qu 
##  219.000    0.000    0.000    0.040    0.058    0.060    0.057    0.070 
##     Max.   Stdev.     Var.  SE Mean   I.Q.R.    Range Kurtosis Skewness 
##    0.150    0.022    0.000    0.001    0.030    0.150    1.505    0.836 
## SW p-val 
##    0.000

multi.hist( x = Mercurio, dcol = c("blue", "red"), dlty = c("dotted", "solid"), 
            main = "HISTOGRAMA DE LA CONCENTRACÓN DE MERCURIO", pch=4)

plot(Mercurio)

######CONCLUSIÓN######
#Los valores de la concentración de arsénico fluctúan entre
# 0.0 y 0.15 mg/l y estan en torno a 0.060 mg/l siendo un 
#conjunto de datos homogeneo los valores se acumulan moderadamente 
#en los valores bajos de la variable por lo tanto el comportamiento
#de la variable es beneficioso ya que existen bajas concentraciones 
#de este metal que es perjudicial para el medio ambiente. Dañando
#los distintos ecosistemas, agua, aire y suelo.