Week 4: Apply 3

Import data

# excel file
data <- read_excel("data/myData9.xlsx")
data

## # A tibble: 14,784 × 45
##    country_name country_code  year regime_category_index regime_category   
##    <chr>        <chr>        <dbl> <chr>                 <chr>             
##  1 Afghanistan  AFG           1950 5                     Royal dictatorship
##  2 Afghanistan  AFG           1951 5                     Royal dictatorship
##  3 Afghanistan  AFG           1952 5                     Royal dictatorship
##  4 Afghanistan  AFG           1953 5                     Royal dictatorship
##  5 Afghanistan  AFG           1954 5                     Royal dictatorship
##  6 Afghanistan  AFG           1955 5                     Royal dictatorship
##  7 Afghanistan  AFG           1956 5                     Royal dictatorship
##  8 Afghanistan  AFG           1957 5                     Royal dictatorship
##  9 Afghanistan  AFG           1958 5                     Royal dictatorship
## 10 Afghanistan  AFG           1959 5                     Royal dictatorship
## # ℹ 14,774 more rows
## # ℹ 40 more variables: is_monarchy <lgl>, is_commonwealth <lgl>,
## #   monarch_name <chr>, monarch_accession_year <chr>, monarch_birthyear <chr>,
## #   is_female_monarch <chr>, is_democracy <lgl>, is_presidential <lgl>,
## #   president_name <chr>, president_accesion_year <chr>,
## #   president_birthyear <chr>, is_interim_phase <chr>,
## #   is_female_president <chr>, is_colony <lgl>, colony_of <chr>, …

Plot data

data %>%
    
    ggplot(aes(has_free_and_fair_election)) +
    geom_bar()