alejandra

R Markdown

capacitacion VRHR 2020

library(ggplot2)

df2= readxl::read_excel('D:/1_PROYECTOS_2020_MIRKO/CURSO_LA_PAZ_CATOLICA/2_CALIDAD_HIDRICA/datos.xlsx','Hoja1')

#Grafico 1



#Grafico 2
ggplot(df2, aes(x = Comunidad, y = PH)) + geom_point(color = "red") +
  labs(x = "Año", y = "PH")

#Grafico 3

ggplot(df2, aes(x = Codigo, y = PH))+
  geom_point(aes(color = PH, size=PH)) + scale_color_gradient(low="red", high="blue")

#Grafico 4

ggplot(df2, aes(x = Comunidad, y = PH))+
  geom_point(aes(color = PH, size=PH)) + scale_color_gradient(low="red", high="blue")+ facet_wrap(~Municipio)

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.