library(tidyverse)
sonad=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/kunglarahvas_lambipirn_pikkused_haalikud.txt")

filter(sonad, sulghaalikuid==1)

sonad %>% summarise(sonadearv=n(), akesk=mean(sonapikkus), med=median(sonapikkus))
sonad %>% group_by(lugu) %>% summarise(sonadearv=n(), akesk=mean(sonapikkus), med=median(sonapikkus))


sonad %>% group_by(lugu, taishaalikuid) %>% summarise(sonadearv=n(), akesk=mean(sonapikkus), med=median(sonapikkus))


sonad %>% group_by(taishaalikuid) %>% summarise(alates=min(sulghaalikuid), kuni=max(sulghaalikuid))


tibble(sonaliik=c("nimisõna", "tegusõna", "lausemärk", "sidesõna"),
         kogus=c(23, 17, 15, 14))

tibble(sonaliik=c("nimisõna", "tegusõna", "lausemärk", "sidesõna"),
       kogus=c(23, 17, 15, 14)) %>% 
   ggplot(aes(sonaliik, kogus)) +geom_col()


tibble(sonaliik=c("nimisõna", "tegusõna", "lausemärk", "sidesõna"),
       kogus=c(23, 17, 15, 14)) %>% 
  ggplot(aes(sonaliik, kogus)) +geom_col() +
    theme(axis.text.y=element_text(angle=270)) + coord_flip()


tibble(sonaliik=c("nimisõna", "tegusõna", "lausemärk", "sidesõna"),
       kogus=c(23, 17, 15, 14), nr=c(1, 2, 3, 4)) %>% 
  ggplot(aes(nr, kogus)) +geom_line() 
#  theme(axis.text.y=element_text(angle=270)) + coord_flip()