media y frecuencia de las lluvias de villahermosa

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

setwd("C:/Users/kanib/OneDrive/Documentos/clases de ing.ambiental 3semestres")
library(readxl)
library(lubridate)
library(ggplot2)
library(extrafont)
library(dplyr)
lluvias <- read_excel("lluvias.xlsx")
View(lluvias)
precipitacion1979 <- lluvias[1:332,1:2]
 data<-precipitacion1979
precipitacion1<- select(data, precipitacion) %>% unlist
mean(precipitacion1)
x<-table(precipitacion1979$precipitacion)
x
precipitacion1989 <-lluvias [333:697,1:2]
data2<-precipitacion1989
precipitacion2<- select(data2, precipitacion) %>% unlist
mean(precipitacion2)
x<-table(precipitacion1989$precipitacion)
x
precipitacion1994 <-lluvias[698:1062, 1:2]
data3<-precipitacion1994
precipitacion3<- select(data3, precipitacion) %>% unlist
mean(precipitacion3)
x<-table(precipitacion1994$precipitacion)
x
precipitacion2007<-lluvias[1063:1366, 1:2]
data4<-precipitacion2007
precipitacion4<- select(data4, precipitacion) %>% unlist
mean(precipitacion4)
x<-table(precipitacion2007$precipitacion)
x
precipitacion2017<-lluvias[1364:1731, 1:2]
data5<-precipitacion2017
precipitacion5<- select(data5, precipitacion) %>% unlist
mean(precipitacion5)
x<-table(precipitacion2017$precipitacion)
x