library(tidyverse)
sonaliigid=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/kunglarahvas_lambipirn_sonaliigid.txt")
skahanevalt=sonaliigid %>% arrange(-kunglarahvas) %>% .$sõnaliik
sonaliigid %>% mutate(palju=kunglarahvas>10) %>% 
    ggplot(aes(factor(sõnaliik, levels=skahanevalt), kunglarahvas ))+
    geom_bar(aes(fill=palju), stat="identity")+
    scale_fill_manual(values=c("green", "red"), 
                       name="kogus", labels=c("vähe", "palju"))+
     xlab("Sõnaliigid")+ggtitle("Sõnaliikide sagedused")+
     coord_flip()


sonaliigid %>% arrange(-kunglarahvas)  %>% 
  ggplot(aes(x="", y=kunglarahvas, fill=factor(sõnaliik, levels=skahanevalt)))+
  geom_bar( stat="identity")+
  xlab("Sõnaliigid")
  
sonaliigid %>% arrange(-kunglarahvas) %>%
    mutate(sõnaliik=factor(sõnaliik, levels=skahanevalt))  %>% 
  ggplot(aes(x="", y=kunglarahvas, fill=sõnaliik))+
  geom_col()+coord_polar("y")+
  theme(axis.text=element_blank(), 
        axis.title.x=element_blank(), axis.title.y=element_blank())

sonad=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/kunglarahvas_lambipirn_pikkused_haalikud.txt")
sonad %>% group_by(lugu) %>% summarise(keskmpikkus=mean(sonapikkus))

sonad %>% mutate(suhtpikkus=sonapikkus/mean(sonapikkus))
sonad %>% group_by(lugu) %>% mutate(suhtpikkus=sonapikkus/mean(sonapikkus))
sonad %>% arrange(sonapikkus) %>% mutate(mitmes=row_number())

sonad %>% group_by(lugu) %>% arrange(sona) %>% mutate(mitmes=row_number())

sonad %>% group_by(lugu) %>% arrange(desc(sona)) %>% 
    mutate(mitmes=row_number()) %>% filter(mitmes<10)