Loading page6.Rmd +2 −2 Original line number Diff line number Diff line Loading @@ -23,14 +23,14 @@ show(min(coronavirus$date)) Table with the latest number of cases (top 32): ```{r} coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type = "confirmed") %>% as.data.frame() %>% head(32) coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type == "confirmed") %>% as.data.frame() %>% head(32) ``` Table with the latest number of deaths (top 32): ```{r} coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type = "death") %>% as.data.frame() %>% head(32) coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type == "death") %>% as.data.frame() %>% head(32) ``` -- Loading Loading
page6.Rmd +2 −2 Original line number Diff line number Diff line Loading @@ -23,14 +23,14 @@ show(min(coronavirus$date)) Table with the latest number of cases (top 32): ```{r} coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type = "confirmed") %>% as.data.frame() %>% head(32) coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type == "confirmed") %>% as.data.frame() %>% head(32) ``` Table with the latest number of deaths (top 32): ```{r} coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type = "death") %>% as.data.frame() %>% head(32) coronavirus %>% group_by(Country.Region, type) %>% summarise(total_cases = sum(cases)) %>% arrange(-total_cases) %>% filter(type == "death") %>% as.data.frame() %>% head(32) ``` -- Loading