naitlejad=read_csv("http://minitorn.tlu.ee/~jaagup/kool/java/kursused/21/kvalitatiivne_digihumanitaaria/naited/0913/naitlejapaarid1.csv")
naitlejad %>% select(Source, aasta) %>% rename(isik=Source)

naitlejad %>% select(Source, aasta) %>% rename(isik=Source) %>%
   add_row( 
     naitlejad %>% select(Target, aasta) %>% rename(isik=Target)
  ) %>% group_by(isik) %>% 
    summarise(alates=min(aasta), kuni=max(aasta)) %>%
    rename(Id=isik) %>% mutate(Label=Id) %>%
   write_csv("naitlejad_aastad.csv")