Import data

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

Plot data

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