Import data

# csv file
data <- read.csv("data/Powerliftingdata.csv")

Plot data

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