Data 608 - Project Proposal
Habib Khan
March 25, 2020
Introduction
In this project, I am intending to create a dashboard where we can see the number of coronavirus spreading throughout the world. Although at this point I am not sure what visuals I would put in but number of people affected Vs people died, etc. I woulde like to use shiny Apps in R but originally my plan was to create an effective dashboard in Power BI. I might use both in my final project.
Data
The dataset will be taken from https://www.kaggle.com/sudalairajkumar/novel-corona-virus-2019-dataset. The data is originally collected and maintained by John Hopkins University. There are 5 different datasets and data cleaning will be required to merge the data. Each data set contain different number of columns starting from 8 up to 66 but all of them might not be required for this project.
Tools
There are various tools to create dashboard by data scientists. I am going to use R’s shiny apps along with Power BI to create a dashboard. I have to develop metrics also which I will be doing simultaneously while working in Power BI and then I will create a dashboard in R using shiny apps.
Significance
Keeping in mind the quick spread of COVID-19 in last three months; I want to create a dashboard where the big picture could be seen in different countries and globally as a whole as well. Metrics are not defined yet and it is subject to modification as I will continue working in the project
Sample data
# libraries
file <- read.csv("C:/Users/hukha/Desktop/MS - Data Science/Data 608 - Knowledge and visual analytics/Data 608 - Knowledge and Visual Analytics/coronavirus dataset/1-COVID19_line_list_data.csv", stringsAsFactors = FALSE, header = TRUE) %>% select(-c(link, X.1, X.2, X.3, X.4, X.5, X.6)) # reading the file and unnecessary columns
head(file, n=15) %>% kable(caption= "List of Patients of Corona Virus") %>% kable_styling()| ï..id | case_in_country | reporting.date | X | summary | location | country | gender | age | symptom_onset | If_onset_approximated | hosp_visit_date | exposure_start | exposure_end | visiting.Wuhan | from.Wuhan | death | recovered | symptom | source |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | NA | 1/20/2020 | NA | First confirmed imported COVID-19 pneumonia patient in Shenzhen (from Wuhan): male, 66, shenzheng residence, visited relatives in Wuhan on 12/29/2019, symptoms onset on 01/03/2020, returned to Shenzhen and seek medical care on 01/04/2020, hospitalized on 01/11/2020, sample sent to China CDC for testing on 01/18/2020, confirmed on 01/19/2020. 8 others under medical observation, contact tracing ongoing. | Shenzhen, Guangdong | China | male | 66 | 01/03/20 | 0 | 01/11/20 | 12/29/2019 | 01/04/20 | 1 | 0 | 0 | 0 | Shenzhen Municipal Health Commission | |
| 2 | NA | 1/20/2020 | NA | First confirmed imported COVID-19 pneumonia patient in Shanghai (from Wuhan): female, 56, Wuhan residence, arrived in Shanghai from Wuhan on 01/12/2020, symptom onset and visited fever clinic on 01/15/2020, laboratory confirmed on 01/20/2020 | Shanghai | China | female | 56 | 1/15/2020 | 0 | 1/15/2020 | NA | 01/12/20 | 0 | 1 | 0 | 0 | Official Weibo of Shanghai Municipal Health Commission | |
| 3 | NA | 1/21/2020 | NA | First confirmed imported cases in Zhejiang: patient is male, 46, lives in Wuhan, self-driving from Wuhan to Hangzhou on 01/03/2020, symptom onset 01/04/2020, hospitalized on 01/17/2020, sample deliver to China CDC for testing on 01/20/2020, test positive on 01/21/2020. | Zhejiang | China | male | 46 | 01/04/20 | 0 | 1/17/2020 | NA | 01/03/20 | 0 | 1 | 0 | 0 | Health Commission of Zhejiang Province | |
| 4 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia in Tianjin: female, age 60, recently visited Wuhan, visited fever clinic on 01/19/2020 in Tianjin then quarantined immediately. | Tianjin | China | female | 60 | NA | NA | 1/19/2020 | NA | NA | 1 | 0 | 0 | 0 | äººæ°‘æ—¥æŠ¥å®˜æ–¹å¾®åš | |
| 5 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia in Tianjin: male, age 58, visited fever clinic on 01/14/2020. | Tianjin | China | male | 58 | NA | NA | 1/14/2020 | NA | NA | 0 | 0 | 0 | 0 | äººæ°‘æ—¥æŠ¥å®˜æ–¹å¾®åš | |
| 6 | NA | 1/21/2020 | NA | First confirmed imported COVID-19 pneumonia patient in Chongqing (from Wuhan): female, age 44, symptoms onset on 01/15/2020, laboratory confirmed on 01/21/2020. | Chongqing | China | female | 44 | 1/15/2020 | 0 | NA | NA | NA | 0 | 1 | 0 | 0 | Chongqing Municipal Health Commission | |
| 7 | NA | 1/21/2020 | NA | First confirmed imported COVID-19 pneumonia patient in Sichuan (from Wuhan): Male, 34 years old, works in Wuhan, symptoms onset on 01/11/2020 in Chengdu. | Sichuan | China | male | 34 | 01/11/20 | 0 | NA | NA | NA | 0 | 1 | 0 | 0 | 央视新闻 | |
| 8 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia patient in Beijing: male, 37, visited Wuhan on 01/10/2020, return to Beijing on 01/11/2020, symptoms onset on 01/14/2020, hospitalized on 01/20/2020. | Beijing | China | male | 37 | 1/14/2020 | 0 | 1/20/2020 | 01/10/20 | 01/11/20 | 1 | 0 | 0 | 0 | Beijing Municipal Health Commission | |
| 9 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia patient in Beijing: male, 39, visited Wuhan on 01/03/2020, return to Beijing on 01/04/2020, symptoms onset on 01/09/2020, hospitalized on 01/14/2020. | Beijing | China | male | 39 | 01/09/20 | 0 | 1/14/2020 | 01/03/20 | 01/04/20 | 1 | 0 | 0 | 0 | Beijing Municipal Health Commission | |
| 10 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia patient in Beijing: male, 56, visited Wuhan on 01/08/2020, return to Beijing on 01/16/2020, symptoms onset on 01/16/2020, hospitalized on 01/20/2020. | Beijing | China | male | 56 | 1/16/2020 | 0 | 1/20/2020 | 01/08/20 | 1/16/2020 | 1 | 0 | 0 | 0 | Beijing Municipal Health Commission | |
| 11 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia patient in Beijing: female, 18, visited Wuhan on 01/12/2020, return to Beijing on 01/17/2020, symptoms onset on 01/19/2020, hospitalized on 01/20/2020. | Beijing | China | female | 18 | 1/19/2020 | 0 | 1/20/2020 | 01/12/20 | 1/17/2020 | 1 | 0 | 0 | 0 | Beijing Municipal Health Commission | |
| 12 | NA | 1/21/2020 | NA | new confirmed imported COVID-19 pneumonia patient in Beijing: female, 32, visited Wuhan on 01/13/2020, return to Beijing on 01/17/2020, symptoms onset while in Wuhan, hospitalized on 01/20/2020. | Beijing | China | female | 32 | 01/15/2020 | 0 | 1/20/2020 | 1/13/2020 | 1/17/2020 | 1 | 0 | 0 | 0 | Beijing Municipal Health Commission | |
| 13 | NA | 1/21/2020 | NA | First confirmed imported COVID-19 pneumonia patient in Shandong: male, 37, visited clinic on 01/17/2020, travelled to Wuhan within to weeks of symptom onset. | Shandong | China | male | 37 | NA | NA | 1/17/2020 | NA | NA | 1 | 0 | 0 | 0 | 央视新闻 | |
| 14 | NA | 1/21/2020 | NA | First confirmed imported COVID-19 pneumonia patient in Yunnan: male, 51, Wuhan resident, visited Yunan on 01/15/2020, symptom onset on 01/16/2020 and hospitalized. | Yunnan | China | male | 51 | 1/16/2020 | 0 | NA | NA | 1/15/2020 | 0 | 1 | 0 | 0 | 央视新闻 | |
| 15 | NA | 1/22/2020 | NA | Second confirmed imported COVID-19 pneumonia patient in Sichuan: male, 57, Wuhan resident, visited Sichuan on 01/15/2020, symptom onset on 01/16/2020 and hospitalized. | Sichuan | China | male | 57 | 1/16/2020 | 0 | NA | NA | 1/15/2020 | 0 | 1 | 0 | 0 | 央视新闻 |
file1 <- count(x=file, country) %>% rename(freq = n) %>% arrange(freq)
ggplot(file1, aes(x=reorder(country, freq), y=freq), fill="country")+geom_bar(stat="identity", fill="Blue")+coord_flip()+labs(title= "Number of Patients affected by Covid-19", y= "Number of People", x= " Countries")