TRABAJO PARCIAL 1

alt_text (INTRODUCCION En el departamento de Oruro hay una disputa por el uso del agua para actividades como la minería, la pesca, agricultura, ganadería aparte del consumo humano. Pero los mineros se llevan la mayor parte.)

alt_text (OBJETIVOS Los objetivos son observar los posibles cambios en las diferentes campañas yo utilice PH,TEMPERATURA, CAUDAL, OXIGENO DISUELTO)

alt_text (GRAFICAS PH Como se puede ver, la gráfica corresponde a la primera campaña realizada, en cada una de las comparaciones se tomaron los ríos anteriormente mecionados, )

#campanagrafico1
library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.5

grafico<-readxl::read_excel("C:/Users/Mariana/Desktop/MODELACION/modelacion.xlsx","Hoja1")
#Grafico 1
ggplot(grafico, aes(x = lugar, y = ph)) + geom_point(color = "red") +
  labs(x = "santafe", y = "PH")

alt_text (TEMPERATURA Se puede observar el cambio que hay de temperatura entre los ríos mencionados)

grafico<-readxl::read_excel("C:/Users/Mariana/Desktop/MODELACION/modelacion.xlsx","Hoja2")
#Grafico 2
ggplot(grafico, aes(x = lugar, y = temperatura)) + geom_point(color = "yellow") +
  labs(x = "payrumani", y = "temperatura")  

alt_text (CAUDAL En esta parte podemos evidenciar que en esta campaña existe un cambio notorio de caudal de los ríos mencionados y esto es por la contaminación que se produce en tales)

grafico<-readxl::read_excel("C:/Users/Mariana/Desktop/MODELACION/modelacion.xlsx","Hoja3")
#Grafico 3
ggplot(grafico, aes(x = lugar, y = caudal)) + geom_point(color = "black") +
  labs(x = "ventaymedia", y = "caudal") 

## Warning: Removed 1 rows containing missing values (geom_point).

alt_text (OXIGENO DISUELTO En estas graficas se observa igualmente que en el caudal un cambio notorio entre las distintas cuencas)

grafico<-readxl::read_excel("C:/Users/Mariana/Desktop/MODELACION/modelacion.xlsx","Hoja4")
#Grafico 4
ggplot(grafico, aes(x = lugar, y = oxigenodisuelto)) + geom_point(color = "blue") +
  labs(x = "sanjuandesora", y = "oxigenodisuelto")

## Warning: Removed 4 rows containing missing values (geom_point).

alt_text (CONCLUCIONES Las conclusiones de este trabajo son que a pesar que las cuencas mencionadas no son tan conocidas como igual son notorias sus índices de contaminación y haciendo la comparación con los factores seleccionados se pudo evidenciar eso )