drfabach/corona

Corona

corona's Issues

Change Countries Names inside countries object

Hi...
I realized that you change the names of the countries in Corona_files in order to match with NAME column of countries of the map using dataCook function, however pop was not used inside of the function

Also Congo Kinshasa is not the same of Congo Brazzaville, they are two different countries.

If I would like to use your project and change certain things (adding tabs, and summary, etc), how would I cite your master work (copy rights etc).

US Cases Looks wrong

Dr.,

Good evening. I'm looking at John Hopkins and it still says 1323 and your map say 2266 on 3/12/2020.

Thanks

Plot cases over time

Hi I was just playing with your code to see if I could plot cases ove time. I'm sure you've already looked at this but I think it would be a useful additional tab on you app. Here is a sample code to summarise and plot by country over time. The first plot is a normal y axis, the second plot is an log y axis.

URL <- RCurl::getURL("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_19-covid-Confirmed.csv")
data <- read.csv(text = URL, check.names = F)

df <-data %>% tidyr::pivot_longer(-c(Province/State,Country/Region,Lat,Long), names_to = "date", values_to = "cases")
df <- df[,c(1,2,5,6)]

df$date <- lubridate::parse_date_time(df$date, orders = c("mdy"))

df <- df %>% dplyr::group_by(Country/Region,date) %>% dplyr::summarise(cases = sum(cases))

plotly::plot_ly(df,x = ~date, y = ~cases, color = ~Country/Region, type = "scatter",mode = "lines")

plotly::plot_ly(df,x = ~date, y = ~cases, color = ~Country/Region, type = "scatter",mode = "lines") %>%
layout(yaxis = list(type = "log"))

Code not working correctly

hello, I have tried running the code, but for some reason, it does not show the map nor the visuals when it runs.
It only shows covid 19 outbreak box with the cases or deaths box.
Am I missing something?

Some country/region name changed

Due to some change in the data, the case numbers in some countries were not shown correctly when the mouse was moved there.

Please consider adding the following lines after line 45 :

data$`Country/Region`[data$`Country/Region`=="Korea, South"]<- "South Korea"
data$`Country/Region`[data$`Country/Region`=="Taiwan*"]<- "Taiwan"
data$`Country/Region`[data$`Country/Region`=="Holy See"]<- "Vatican"

Pop csv file

Hi, Dr Fabach! thank you for sharing the code.
I am trying to make it reproducible to show my students, but I could not find the pop.csv table.

Is possible to add this table?

Thank you.

Best,

Luis