# Mindanao State University
# General Santos City
# Use Nested Loops in R to solve for a specific total average number in given data
# Submitted by: Angga, Princess Joy & Dongosa, Davy
# Math 108
# Use nested loops to get the average number and total number of deaths in the country according to the 3 key fields
# Load necessary packages
library(readr)
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.2 ✔ purrr 1.0.1
## ✔ forcats 1.0.0 ✔ stringr 1.5.0
## ✔ ggplot2 3.4.2 ✔ tibble 3.2.1
## ✔ lubridate 1.9.2 ✔ tidyr 1.3.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(dplyr)
# import and read CSV File
folder<-"/cloud/project"
filename<-"CovidPhilData.csv"
file<-paste0(folder,"/",filename)
data <- read.csv(file)
luzvimins <- unique(data$Luzvimin)
regions <- unique(data$Region)
prov_cities <- unique(data$Prov_City)
total_avg_deaths <- 0
total_deaths <- 0
for (i in luzvimins) {
for (j in regions) {
for (k in prov_cities) {
subset <- filter(data, Luzvimin == i & Region == j & Prov_City == k)
if(nrow(subset) > 0) {
avg_deaths <- mean(subset$new_deceased, na.rm = TRUE)
total_deaths <- sum(subset$new_deceased, na.rm = TRUE)
cat("Luzvimin:", i, "\n")
cat("Region:", j, "\n")
cat("Prov_City:", k, "\n")
cat("Average Deaths:", avg_deaths, "\n")
cat("Total Deaths:", total_deaths, "\n")
cat("\n")
total_avg_deaths <- total_avg_deaths + avg_deaths
total_deaths <- total_deaths + total_deaths
}
}
}
}
## Luzvimin:
## Region:
## Prov_City:
## Average Deaths: 56.84405
## Total Deaths: 35357
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City:
## Average Deaths: 9.426874
## Total Deaths: 10313
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Capital District
## Average Deaths: 0.04545455
## Total Deaths: 13
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Tondo
## Average Deaths: 0.9294991
## Total Deaths: 501
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Binondo
## Average Deaths: 0.08225108
## Total Deaths: 38
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Quiapo
## Average Deaths: 0.03263403
## Total Deaths: 14
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: San Nicolas
## Average Deaths: 0.05839416
## Total Deaths: 24
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Santa Cruz
## Average Deaths: 0.2052731
## Total Deaths: 109
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Sampaloc
## Average Deaths: 0.5323475
## Total Deaths: 288
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: San Miguel
## Average Deaths: 0.01139601
## Total Deaths: 4
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Ermita
## Average Deaths: 0.03813559
## Total Deaths: 18
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Intramuros
## Average Deaths: 0.0148368
## Total Deaths: 5
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Malate
## Average Deaths: 0.1156069
## Total Deaths: 60
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Paco
## Average Deaths: 0.1322957
## Total Deaths: 68
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Pandacan
## Average Deaths: 0.123506
## Total Deaths: 62
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Port Area
## Average Deaths: 0.04600484
## Total Deaths: 19
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Santa Ana
## Average Deaths: 0.2992424
## Total Deaths: 158
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Mandaluyong
## Average Deaths: 0.6691312
## Total Deaths: 362
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Marikina
## Average Deaths: 0.66171
## Total Deaths: 356
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Pasig
## Average Deaths: 1.48893
## Total Deaths: 807
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Quezon
## Average Deaths: 3.871324
## Total Deaths: 2106
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: San Juan
## Average Deaths: 0.3873371
## Total Deaths: 208
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Caloocan
## Average Deaths: 1.684502
## Total Deaths: 913
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Malabon
## Average Deaths: 0.532567
## Total Deaths: 278
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Navotas
## Average Deaths: 0.3435701
## Total Deaths: 179
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Valenzuela
## Average Deaths: 1.050562
## Total Deaths: 561
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Las Piñas
## Average Deaths: 0.5314815
## Total Deaths: 287
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Makati
## Average Deaths: 0.9189687
## Total Deaths: 499
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Muntinlupa
## Average Deaths: 0.3951763
## Total Deaths: 213
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Parañaque
## Average Deaths: 0.5701107
## Total Deaths: 309
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Pasay
## Average Deaths: 0.6118299
## Total Deaths: 331
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Pateros
## Average Deaths: 0.09033613
## Total Deaths: 43
##
## Luzvimin: Luzon
## Region: National Capital Region
## Prov_City: Taguig
## Average Deaths: 0.4834559
## Total Deaths: 263
##
## Luzvimin: Luzon
## Region: Ilocos Region
## Prov_City:
## Average Deaths: 2.251451
## Total Deaths: 1164
##
## Luzvimin: Luzon
## Region: Ilocos Region
## Prov_City: Ilocos Norte
## Average Deaths: 0.4516129
## Total Deaths: 168
##
## Luzvimin: Luzon
## Region: Ilocos Region
## Prov_City: Ilocos Sur
## Average Deaths: 0.1962366
## Total Deaths: 73
##
## Luzvimin: Luzon
## Region: Ilocos Region
## Prov_City: La Union
## Average Deaths: 0.4642857
## Total Deaths: 208
##
## Luzvimin: Luzon
## Region: Ilocos Region
## Prov_City: Pangasinan
## Average Deaths: 1.444444
## Total Deaths: 715
##
## Luzvimin: Luzon
## Region: Cagayan Valley
## Prov_City:
## Average Deaths: 3.221782
## Total Deaths: 1627
##
## Luzvimin: Luzon
## Region: Cagayan Valley
## Prov_City: Batanes
## Average Deaths: 0
## Total Deaths: 0
##
## Luzvimin: Luzon
## Region: Cagayan Valley
## Prov_City: Cagayan
## Average Deaths: 1.245763
## Total Deaths: 588
##
## Luzvimin: Luzon
## Region: Cagayan Valley
## Prov_City: Isabela
## Average Deaths: 1.627907
## Total Deaths: 770
##
## Luzvimin: Luzon
## Region: Cagayan Valley
## Prov_City: Nueva Vizcaya
## Average Deaths: 0.5146667
## Total Deaths: 193
##
## Luzvimin: Luzon
## Region: Cagayan Valley
## Prov_City: Quirino
## Average Deaths: 0.3027888
## Total Deaths: 76
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City:
## Average Deaths: 8.154696
## Total Deaths: 4428
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Aurora
## Average Deaths: 0.3866667
## Total Deaths: 87
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Bataan
## Average Deaths: 0.7865613
## Total Deaths: 398
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Bulacan
## Average Deaths: 2.306273
## Total Deaths: 1250
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Nueva Ecija
## Average Deaths: 1.21371
## Total Deaths: 602
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Pampanga
## Average Deaths: 2.638298
## Total Deaths: 1364
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Tarlac
## Average Deaths: 0.7609148
## Total Deaths: 366
##
## Luzvimin: Luzon
## Region: Central Luzon
## Prov_City: Zambales
## Average Deaths: 0.7639485
## Total Deaths: 356
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City:
## Average Deaths: 1.085603
## Total Deaths: 558
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City: Albay
## Average Deaths: 0.3106996
## Total Deaths: 151
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City: Camarines Norte
## Average Deaths: 0.09467456
## Total Deaths: 32
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City: Camarines Sur
## Average Deaths: 0.5452632
## Total Deaths: 259
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City: Catanduanes
## Average Deaths: 0.04575163
## Total Deaths: 14
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City: Masbate
## Average Deaths: 0.05172414
## Total Deaths: 18
##
## Luzvimin: Luzon
## Region: Bicol Region
## Prov_City: Sorsogon
## Average Deaths: 0.2009569
## Total Deaths: 84
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City:
## Average Deaths: 1.737575
## Total Deaths: 874
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City: Abra
## Average Deaths: 0.1144781
## Total Deaths: 34
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City: Apayao
## Average Deaths: 0.06369427
## Total Deaths: 20
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City: Benguet
## Average Deaths: 1.230303
## Total Deaths: 609
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City: Ifugao
## Average Deaths: 0.142029
## Total Deaths: 49
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City: Kalinga
## Average Deaths: 0.2118863
## Total Deaths: 82
##
## Luzvimin: Luzon
## Region: Cordillera Administrative Region
## Prov_City: Mountain Province
## Average Deaths: 0.2531646
## Total Deaths: 80
##
## Luzvimin: Luzon
## Region: Calabarzon
## Prov_City:
## Average Deaths: 7.452381
## Total Deaths: 4069
##
## Luzvimin: Luzon
## Region: Calabarzon
## Prov_City: Batangas
## Average Deaths: 1.378531
## Total Deaths: 732
##
## Luzvimin: Luzon
## Region: Calabarzon
## Prov_City: Cavite
## Average Deaths: 1.721612
## Total Deaths: 940
##
## Luzvimin: Luzon
## Region: Calabarzon
## Prov_City: Laguna
## Average Deaths: 1.822551
## Total Deaths: 986
##
## Luzvimin: Luzon
## Region: Calabarzon
## Prov_City: Rizal
## Average Deaths: 1.915596
## Total Deaths: 1044
##
## Luzvimin: Luzon
## Region: Mimaropa
## Prov_City:
## Average Deaths: 1.132673
## Total Deaths: 572
##
## Luzvimin: Luzon
## Region: Mimaropa
## Prov_City: Marinduque
## Average Deaths: 0.1221591
## Total Deaths: 43
##
## Luzvimin: Luzon
## Region: Mimaropa
## Prov_City: Occidental Mindoro
## Average Deaths: 0.1518325
## Total Deaths: 58
##
## Luzvimin: Luzon
## Region: Mimaropa
## Prov_City: Oriental Mindoro
## Average Deaths: 0.5343681
## Total Deaths: 241
##
## Luzvimin: Luzon
## Region: Mimaropa
## Prov_City: Palawan
## Average Deaths: 0.4729412
## Total Deaths: 201
##
## Luzvimin: Luzon
## Region: Mimaropa
## Prov_City: Romblon
## Average Deaths: 0.1070111
## Total Deaths: 29
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City:
## Average Deaths: 4.505747
## Total Deaths: 2352
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City: Aklan
## Average Deaths: 0.3789731
## Total Deaths: 155
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City: Antique
## Average Deaths: 0.3258427
## Total Deaths: 116
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City: Capiz
## Average Deaths: 0.5347222
## Total Deaths: 231
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City: Guimaras
## Average Deaths: 0.1
## Total Deaths: 37
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City: Iloilo
## Average Deaths: 1.906188
## Total Deaths: 955
##
## Luzvimin: Visayas
## Region: Western Visayas
## Prov_City: Negros Occidental
## Average Deaths: 1.765432
## Total Deaths: 858
##
## Luzvimin: Visayas
## Region: Central Visayas
## Prov_City:
## Average Deaths: 6.232472
## Total Deaths: 3378
##
## Luzvimin: Visayas
## Region: Central Visayas
## Prov_City: Bohol
## Average Deaths: 0.2192982
## Total Deaths: 100
##
## Luzvimin: Visayas
## Region: Central Visayas
## Prov_City: Cebu
## Average Deaths: 5.72067
## Total Deaths: 3072
##
## Luzvimin: Visayas
## Region: Central Visayas
## Prov_City: Negros Oriental
## Average Deaths: 0.4519016
## Total Deaths: 202
##
## Luzvimin: Visayas
## Region: Central Visayas
## Prov_City: Siquijor
## Average Deaths: 0.01522843
## Total Deaths: 3
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City:
## Average Deaths: 0.9633401
## Total Deaths: 473
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City: Biliran
## Average Deaths: 0.07868852
## Total Deaths: 24
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City: Eastern Samar
## Average Deaths: 0.1382114
## Total Deaths: 51
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City: Leyte
## Average Deaths: 0.4767932
## Total Deaths: 226
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City: Northern Samar
## Average Deaths: 0.1148825
## Total Deaths: 44
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City: Southern Leyte
## Average Deaths: 0.091133
## Total Deaths: 37
##
## Luzvimin: Visayas
## Region: Eastern Visayas
## Prov_City: Samar
## Average Deaths: 0.195279
## Total Deaths: 91
##
## Luzvimin: Mindanao
## Region: Zamboanga Peninsula
## Prov_City:
## Average Deaths: 1.546
## Total Deaths: 773
##
## Luzvimin: Mindanao
## Region: Zamboanga Peninsula
## Prov_City: Zamboanga del Norte
## Average Deaths: 0.2947658
## Total Deaths: 107
##
## Luzvimin: Mindanao
## Region: Zamboanga Peninsula
## Prov_City: Zamboanga del Sur
## Average Deaths: 1.209256
## Total Deaths: 601
##
## Luzvimin: Mindanao
## Region: Zamboanga Peninsula
## Prov_City: Zamboanga Sibugay
## Average Deaths: 0.1303116
## Total Deaths: 46
##
## Luzvimin: Mindanao
## Region: Northern Mindanao
## Prov_City:
## Average Deaths: 1.522088
## Total Deaths: 758
##
## Luzvimin: Mindanao
## Region: Northern Mindanao
## Prov_City: Bukidnon
## Average Deaths: 0.3159091
## Total Deaths: 139
##
## Luzvimin: Mindanao
## Region: Northern Mindanao
## Prov_City: Camiguin
## Average Deaths: 0.04910714
## Total Deaths: 11
##
## Luzvimin: Mindanao
## Region: Northern Mindanao
## Prov_City: Lanao del Norte
## Average Deaths: 0.4847162
## Total Deaths: 222
##
## Luzvimin: Mindanao
## Region: Northern Mindanao
## Prov_City: Misamis Occidental
## Average Deaths: 0.09459459
## Total Deaths: 42
##
## Luzvimin: Mindanao
## Region: Northern Mindanao
## Prov_City: Misamis Oriental
## Average Deaths: 0.7181628
## Total Deaths: 344
##
## Luzvimin: Mindanao
## Region: Davao Region
## Prov_City:
## Average Deaths: 2.697761
## Total Deaths: 1446
##
## Luzvimin: Mindanao
## Region: Davao Region
## Prov_City: Davao de Oro
## Average Deaths: 0.3403263
## Total Deaths: 146
##
## Luzvimin: Mindanao
## Region: Davao Region
## Prov_City: Davao Oriental
## Average Deaths: 0.1774194
## Total Deaths: 77
##
## Luzvimin: Mindanao
## Region: Davao Region
## Prov_City: Davao del Sur
## Average Deaths: 1.870301
## Total Deaths: 995
##
## Luzvimin: Mindanao
## Region: Davao Region
## Prov_City: Davao del Norte
## Average Deaths: 0.4612069
## Total Deaths: 214
##
## Luzvimin: Mindanao
## Region: Davao Region
## Prov_City: Davao Occidental
## Average Deaths: 0.05343511
## Total Deaths: 14
##
## Luzvimin: Mindanao
## Region: Soccsksargen
## Prov_City:
## Average Deaths: 1.663202
## Total Deaths: 800
##
## Luzvimin: Mindanao
## Region: Soccsksargen
## Prov_City: Cotabato
## Average Deaths: 0.3333333
## Total Deaths: 142
##
## Luzvimin: Mindanao
## Region: Soccsksargen
## Prov_City: Sarangani
## Average Deaths: 0.08959538
## Total Deaths: 31
##
## Luzvimin: Mindanao
## Region: Soccsksargen
## Prov_City: South Cotabato
## Average Deaths: 1.26477
## Total Deaths: 578
##
## Luzvimin: Mindanao
## Region: Soccsksargen
## Prov_City: Sultan Kudarat
## Average Deaths: 0.1151961
## Total Deaths: 47
##
## Luzvimin: Mindanao
## Region: Caraga
## Prov_City:
## Average Deaths: 1.706402
## Total Deaths: 773
##
## Luzvimin: Mindanao
## Region: Caraga
## Prov_City: Agusan del Norte
## Average Deaths: 0.5862069
## Total Deaths: 255
##
## Luzvimin: Mindanao
## Region: Caraga
## Prov_City: Agusan del Sur
## Average Deaths: 0.3554987
## Total Deaths: 139
##
## Luzvimin: Mindanao
## Region: Caraga
## Prov_City: Dinagat Islands
## Average Deaths: 0.1719457
## Total Deaths: 38
##
## Luzvimin: Mindanao
## Region: Caraga
## Prov_City: Surigao del Norte
## Average Deaths: 0.3990025
## Total Deaths: 160
##
## Luzvimin: Mindanao
## Region: Caraga
## Prov_City: Surigao del Sur
## Average Deaths: 0.4436275
## Total Deaths: 181
##
## Luzvimin: Mindanao
## Region: Autonomous Region in Muslim Mindanao
## Prov_City:
## Average Deaths: 0.6229839
## Total Deaths: 309
##
## Luzvimin: Mindanao
## Region: Autonomous Region in Muslim Mindanao
## Prov_City: Basilan
## Average Deaths: 0.06397306
## Total Deaths: 19
##
## Luzvimin: Mindanao
## Region: Autonomous Region in Muslim Mindanao
## Prov_City: Lanao del Sur
## Average Deaths: 0.2544643
## Total Deaths: 114
##
## Luzvimin: Mindanao
## Region: Autonomous Region in Muslim Mindanao
## Prov_City: Maguindanao
## Average Deaths: 0.1551724
## Total Deaths: 63
##
## Luzvimin: Mindanao
## Region: Autonomous Region in Muslim Mindanao
## Prov_City: Sulu
## Average Deaths: 0.04285714
## Total Deaths: 12
##
## Luzvimin: Mindanao
## Region: Autonomous Region in Muslim Mindanao
## Prov_City: Tawi-Tawi
## Average Deaths: 0.03351955
## Total Deaths: 6
mean(data$new_deceased)
## [1] 1.79382
sum(data$new_deceased)
## [1] 102985