Import data

# excel file
data <- read_excel("data/myData.xlsx")
data
## # A tibble: 803 × 7
##    `Player Nickname` Country   Kill/Death Rati…¹ Playe…² Heads…³ Kills…⁴ Playe…⁵
##    <chr>             <chr>                 <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
##  1 meyern            Argentina              1.1     1.07    54.1    0.73    1.12
##  2 NikoM             Argentina              1.11    1.07    46.3    0.73    1.09
##  3 JonY BoY          Argentina              1.05    1.03    34.8    0.7     1.16
##  4 1962              Argentina              1       1.01    53.8    0.71    1.14
##  5 Noktse            Argentina              1.02    1       39.5    0.67    1.1 
##  6 reversive         Argentina              1.02    1       43.6    0.68    1.04
##  7 nbl               Argentina              0.96    0.96    51.4    0.66    0.99
##  8 tutehen           Argentina              0.95    0.94    46.1    0.63    0.91
##  9 Texta             Australia              1.16    1.13    40.3    0.8     1.29
## 10 INS               Australia              1.17    1.12    42.4    0.76    1.26
## # … with 793 more rows, and abbreviated variable names ¹​`Kill/Death Ratio`,
## #   ²​`Player Rating`, ³​`Headshot Percentage`, ⁴​`Kills Per Round`,
## #   ⁵​`Player Impact`

Plot data

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