# Mindanao State University
# Fundamental Of Computing
# General Santos City
# Covid 19 Phil data categorized into 3 key fields, Luzvimin, Region and ProvCity. Use nested loops to get the average number and total number of deaths in the country accdng to the 3 key fields.
# Submitted by: Jen Marie B. Talaugon and Rose Ann D. Ancheta
# Math Department
# April 24, 2023
# Locate the file
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
folder<-"/cloud/project"
filename<-"CovidPhilData.csv"
file<-paste0(folder,"/",filename)
# Read the data
data <- read.csv(file)
# Get unique values for Luzvimin, Region, and ProvCity
(luzvimins <- unique(data$Luzvimin))
## [1] "" "Luzon" "Visayas" "Mindanao"
(regions <- unique(data$Region))
## [1] ""
## [2] "National Capital Region"
## [3] "Ilocos Region"
## [4] "Cagayan Valley"
## [5] "Central Luzon"
## [6] "Bicol Region"
## [7] "Western Visayas"
## [8] "Central Visayas"
## [9] "Eastern Visayas"
## [10] "Zamboanga Peninsula"
## [11] "Northern Mindanao"
## [12] "Davao Region"
## [13] "Soccsksargen"
## [14] "Caraga"
## [15] "Autonomous Region in Muslim Mindanao"
## [16] "Cordillera Administrative Region"
## [17] "Calabarzon"
## [18] "Mimaropa"
(prov_cities <- unique(data$Prov_City))
## [1] "" "Capital District" "Tondo"
## [4] "Binondo" "Quiapo" "San Nicolas"
## [7] "Santa Cruz" "Sampaloc" "San Miguel"
## [10] "Ermita" "Intramuros" "Malate"
## [13] "Paco" "Pandacan" "Port Area"
## [16] "Santa Ana" "Mandaluyong" "Marikina"
## [19] "Pasig" "Quezon" "San Juan"
## [22] "Caloocan" "Malabon" "Navotas"
## [25] "Valenzuela" "Las Piñas" "Makati"
## [28] "Muntinlupa" "Parañaque" "Pasay"
## [31] "Pateros" "Taguig" "Ilocos Norte"
## [34] "Ilocos Sur" "La Union" "Pangasinan"
## [37] "Batanes" "Cagayan" "Isabela"
## [40] "Nueva Vizcaya" "Quirino" "Aurora"
## [43] "Bataan" "Bulacan" "Nueva Ecija"
## [46] "Pampanga" "Tarlac" "Zambales"
## [49] "Albay" "Camarines Norte" "Camarines Sur"
## [52] "Catanduanes" "Masbate" "Sorsogon"
## [55] "Aklan" "Antique" "Capiz"
## [58] "Guimaras" "Iloilo" "Negros Occidental"
## [61] "Bohol" "Cebu" "Negros Oriental"
## [64] "Siquijor" "Biliran" "Eastern Samar"
## [67] "Leyte" "Northern Samar" "Southern Leyte"
## [70] "Samar" "Zamboanga del Norte" "Zamboanga del Sur"
## [73] "Zamboanga Sibugay" "Bukidnon" "Camiguin"
## [76] "Lanao del Norte" "Misamis Occidental" "Misamis Oriental"
## [79] "Davao de Oro" "Davao Oriental" "Davao del Sur"
## [82] "Davao del Norte" "Davao Occidental" "Cotabato"
## [85] "Sarangani" "South Cotabato" "Sultan Kudarat"
## [88] "Agusan del Norte" "Agusan del Sur" "Dinagat Islands"
## [91] "Surigao del Norte" "Surigao del Sur" "Basilan"
## [94] "Lanao del Sur" "Maguindanao" "Sulu"
## [97] "Tawi-Tawi" "Abra" "Apayao"
## [100] "Benguet" "Ifugao" "Kalinga"
## [103] "Mountain Province" "Batangas" "Cavite"
## [106] "Laguna" "Rizal" "Marinduque"
## [109] "Occidental Mindoro" "Oriental Mindoro" "Palawan"
## [112] "Romblon"
# Initialize variables for total and average deaths in the country
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
# Calculate the average and totala number of deaths in the country
(avg_deaths <- mean(data$new_deceased))
## [1] 1.79382
(total_deaths <- sum(data$new_deceased))
## [1] 102985
# Print the results
cat("Total Deaths:", total_deaths, "Average Deaths:", avg_deaths, "\n")
## Total Deaths: 102985 Average Deaths: 1.79382
# Calculate the average number of deaths in the country
(avg_deaths <- mean(data$new_deceased))
## [1] 1.79382
# Print the results
cat("Total Deaths:", sum(data$new_deceased), "Average Deaths:", avg_deaths, "\n")
## Total Deaths: 102985 Average Deaths: 1.79382