library(tidyverse)
regiviisid=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/muusika/regiviisid.txt")
viisidmeta=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/muusika/regiviisidmeta.txt")
regiviisid %>% inner_join(viisidmeta, by=c("FKey"="ID"))
viisid=regiviisid %>% inner_join(viisidmeta, by=c("FKey"="ID"))
viisid$viisiKogA
as.numeric(viisid$viisiKogA)
viisid$kihelkond
viisid$laululiik
viisid$viisiliik

liigid=c("Lüürika", "Pulma", "Jut", "Hälli", "mardi")
algusnoodid=c("g", "2d", "h", "a", "2c")

viisid %>% filter(tugiheli=="g") %>% group_by(laululiik) %>%
    summarise(kogus=n())  %>% drop_na() %>% arrange(-kogus)

viisid %>% filter(tugiheli=="g", laululiik %in% liigid) %>%
   group_by(P1) %>% summarise(kogus=n()) %>% arrange(-kogus)


viisid %>% 
  filter(tugiheli=="g", laululiik %in% liigid, P1 %in% algusnoodid) %>%
  group_by(laululiik, P1) %>% summarise(kogus=n()) %>% arrange(-kogus)

# koostage tulpdiagramm. X-teljel P1, y=kogus tulbagrupp=laululiik



viisid %>% filter(tugiheli=="g", laululiik %in% liigid, P1 %in% algusnoodid) %>% 
  mutate(P1=factor(P1, levels=algusnoodid)) %>%
  mutate(laululiik=factor(laululiik, levels=liigid)) %>%
  group_by(laululiik) %>% mutate(liigikogus=n()) %>% ungroup() %>%
  group_by(laululiik, P1) %>% mutate(kogus=n()/liigikogus) %>% 
  select(laululiik, P1, kogus) %>% unique()  %>% 
  ggplot(aes(P1, kogus, fill=laululiik)) + facet_wrap(~laululiik) + 
    geom_col()


andmed1=viisid %>% filter(tugiheli=="g", laululiik %in% liigid, P1 %in% algusnoodid) %>% 
  mutate(P1=factor(P1, levels=algusnoodid)) %>%
  mutate(laululiik=factor(laululiik, levels=liigid)) %>%
  group_by(laululiik) %>% mutate(liigikogus=n()) %>% ungroup() %>%
  group_by(laululiik, P1) %>% mutate(kogus=n()/liigikogus) %>% 
  select(laululiik, P1, kogus) %>% unique()

andmed1

andmed1 %>% filter(laululiik=="mardi") %>% ggplot(aes(P1, kogus)) + geom_col()
andmed1 %>% filter(laululiik=="Lüürika") %>% ggplot(aes(P1, kogus)) + geom_col()

library(animation)
saveGIF(
  for(liik in liigid){
     print(andmed1 %>% filter(laululiik==liik) %>% 
             ggplot(aes(P1, kogus))+geom_col())
  }
)

#Määrake, et skaala ei muutuks
#Lisage laulu liik ggtitle abil pealkirjaks
#Lisage videole sissejuhatav slaid
#Tehke viimase laululiigiga lõppu mitu pilti


saveGIF({
  print(ggplot()+xlim(0, 5)+ylim(0, 5)+ 
          annotate("text", 2.5, 3, label="Sissejuhatav slaid", size=7)
  )
  
  for(liik in liigid){
    print(andmed1 %>% filter(laululiik==liik) %>% 
            ggplot(aes(P1, kogus)) +geom_col() +
            ylim(0, 0.6) +ggtitle(paste("Laululiik on ", liik)))
  }  
}
)