South West Precipitation

R

South-western region of Nigeria Mean Annual Rainfall for 38 years


Data Description

There are 6 states in the southwestern region of Nigeria:


  1. Lagos State
  2. Oyo State
  3. Ogun State
  4. Osun State
  5. Ondo State
  6. Ekiti State

Meteorological data of 38 years of south western region in Nigeria were acquired


Data Source

Meteorological Data from Nigeria Meteorological Agency (NIMET) from 1981 - 2019 The data were captured from 24 points across the whole southwestern region with Latitude and Longitude. For each points, precipitation data were measured in (mm) from Jan-1981 to May 2019. the raw data were recorded stored on spread sheets


########################################################################################## ## Lagos State<>Oyo State<>OgunState<>Osun State<>Ondo State<>Ekiti State ## ########################################################################################## library(tidyverse) library(readxl) rain1 <- read_excel('SouthWest2.xlsx',sheet = 1, col_names = TRUE) View(rain1) #####################3 s1 <- rain1 %>% mutate(year = as.numeric(format(rain1$DATE, format = "%Y")))%>% group_by(year == '1986')%>% summarize(annual_sum = mean(mm)) View(s1) mean(s1$annual_sum) ##################### # s2 rain2 <- read_excel('SouthWest2.xlsx',sheet = 2, col_names = TRUE) s2 <- rain2 %>% mutate(year = as.numeric(format(rain2$DATE, format = "%Y")))%>% group_by(year)%>% summarize(annual_sum = sum(mm))
#s5 rain5 <- read_excel('SouthWest2.xlsx',sheet = 5, col_names = TRUE) s5 <- rain5 %>% mutate(year = as.numeric(format(rain5$DATE, format = "%Y")))%>% group_by(year)%>% summarize(annual_sum = sum(mm)) mean(s5$annual_sum) #1154.908 View(s5) #s6 rain6 <- read_excel('SouthWest2.xlsx',sheet = 6, col_names = TRUE) s6 <- rain6 %>% mutate(year = as.numeric(format(rain6$DATE, format = "%Y")))%>% group_by(year)%>% summarize(annual_sum = sum(mm)) mean(s6$annual_sum) #1155.077 View(s6) #s7 rain7 <- read_excel('SouthWest2.xlsx',sheet = 7, col_names = TRUE) s7 <- rain7 %>% mutate(year = as.numeric(format(rain7$DATE, format = "%Y")))%>% group_by(year)%>% summarize(annual_sum = sum(mm)) mean(s7$annual_sum) #1343.921 View(s7)
Continue reading