df <- readr::read_csv2('https://github.com/muuankarski/atc_simu_data/raw/master/data.csv')
#> Using ',' as decimal and '.' as grouping mark. Use read_delim() for more control.
#> Parsed with column specification:
#> cols(
#> vuosi = col_double(),
#> atc = col_character(),
#> atc_selite = col_character(),
#> viikko = col_double(),
#> arvo = col_double(),
#> taso = col_double(),
#> alue = col_character(),
#> aluekoodi = col_double(),
#> sysdate = col_datetime(format = "")
#> )