top3_country.R

library(dplyr)
library(sqldf)

temp<-sqldf("select * from suicides_tmp")

#zmienilem nazwe na total, bo stara nazwa rzucala wyjatki
names(temp)[names(temp) == 'suicides.100k.pop_total'] <- 'total'

#tutaj mamy podzielony dataframe na kawalki dla kazdego roku oddzielie
temp_by_year<-split(temp, temp$year)


my_fun<- function(x) {
  x[order(x$total, decreasing = TRUE),][1:3,]
  
}

#wynik:)
result<-lapply(temp_by_year, my_fun)