Browse Source

Fix locality name varialbe

Marcel Ribeiro-Dantas 4 months ago
parent
commit
fdae416f28
1 changed files with 3 additions and 3 deletions
  1. 3
    3
      extra/compare_countries.R

+ 3
- 3
extra/compare_countries.R

@@ -8,14 +8,14 @@ df <- read_delim(file = 'data/preprocessed/DIB_dataset.tsv', delim = '\t')
 # What countries have more than 100 confirmed deaths by COVID-19?
 df %>%
   filter(acc_deaths > 100) %>%
-  group_by(country_name) %>%
-  select(country_name, acc_cases) %>%
+  group_by(locality_name) %>%
+  select(locality_name, acc_cases) %>%
   slice(n()) %>%
   arrange(-acc_cases) %>% View
 
 # What are the top 10 countries by lethality rate?
 df %>%
-  select(country_name, lethality_rate_percent) %>%
+  select(locality_name, lethality_rate_percent) %>%
   unique %>%
   arrange(-lethality_rate_percent) %>%
   slice(1:10) %>%