Import data

# csv file
stats <- read_csv("../00_data/myData.csv")
stats <- stats %>%
    janitor::clean_names()

State one question

Which country has the highest headshot percentage?

Plot data

ggplot(data = stats) +
    geom_col(mapping = aes(x = headshot_percentage, 
                           y  = fct_reorder(country, headshot_percentage)))

Interpret

According to the data plot, Mongolia has the highest headshot percentage.