Philippine Demographic

setwd("C:/Users/admin/Desktop/DATA SCIENCE/R Files/inciladc")

The working directory was changed to C:/Users/admin/Desktop/DATA SCIENCE/R Files/inciladc inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.

demographic <- read.csv("demog.csv", dec = ",")

str(demographic)

'data.frame':   118 obs. of  5 variables:
 $ Island_Group      : chr  "Luzon" "Luzon" "Luzon" "Luzon" ...
 $ Designation       : chr  "NCR" "NCR" "NCR" "NCR" ...
 $ Name              : chr  "National Capital Region" "National Capital Region" "National Capital Region" "National Capital Region" ...
 $ City_Town_Province: chr  "Caloocan" "Las Piñas" "Makati" "Malabon" ...
 $ Population        : int  1583978 588894 582602 365525 386276 1780148 450741 504509 249463 664822 ...

demographic

TOTAL POPULATION OF THE PHILIPPINES AS OF 2015

Total_Population <- comma(sum(demographic$Population))
Total_Population

[1] "102,075,219"

POPULATION BY ISLAND GROUP

demographic %>% group_by(Island_Group) %>%  summarise(Pop_by_Island=comma(sum(Population)))

demographic %>% group_by(Island_Group) %>%  summarise(Pop_by_Island=sum(Population)) %>%  ggplot(aes(x=Island_Group,y=Pop_by_Island)) + geom_col(fill = "blue") + scale_y_continuous(labels=scales::comma) +  ggtitle("Population by Island")

TOP 10 Populous by Region (Philippines)

byregion <- demographic %>% group_by(Designation) %>%  summarise(Pop_by_Region=sum(Population)) 



demographic %>% group_by(Designation) %>%  summarise(Pop_by_Region=sum(Population)) %>% ggplot(aes(Designation,Pop_by_Region,)) + geom_col( fill="blue") + scale_y_continuous(labels=scales::comma) +  ggtitle("Population by Region")  + theme(axis.text.x = element_text(angle = 45))

top10 <- demographic %>% group_by(Designation) %>%  summarise(Pop_by_Region=sum(Population))  %>%  arrange(desc(Pop_by_Region))
head(top10,10)

NA

CENTRAL VISAYAS

The working directory was changed to C:/Users/admin/Desktop/DATA SCIENCE/R Files/inciladc inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.

demographic %>% filter(Name=="Central Visayas") 

demographic %>% filter(Name=="Central Visayas") %>% ggplot(aes(City_Town_Province,Population)) + geom_col(fill="blue") + scale_y_continuous(labels=scales::comma) + ggtitle("Central Visayas Population")

Cebu_Main <- demographic %>% filter(City_Town_Province %in% c("Cebu","Cebu City","Lapu-Lapu", "Mandaue")) %>% summarise(Cebu_Island=comma(sum(Population)))

Cebu_Main

WESTERN VISAYAS

The working directory was changed to C:/Users/admin/Desktop/DATA SCIENCE/R Files/inciladc inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.

demographic %>% filter(Name=="Western Visayas") 

demographic %>% filter(Name=="Western Visayas") %>% ggplot(aes(City_Town_Province,Population)) + geom_col(fill="blue") + scale_y_continuous(labels=scales::comma) + ggtitle("Western Visayas Population")  + theme(axis.text.x = element_text(angle = 45))

Bacolod_Main <- demographic %>% filter(City_Town_Province %in% c("Bacolod","Negros Occidental")) %>% summarise(Bacolod_Operation=comma(sum(Population)))

Bacolod_Main

NA