---
title: "regiviisid"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```



```{r}
library(tidyverse)
noodid=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/muusika/regiviisid.txt")
```


P1 noodid sageduse järgi

```{r}
noodid %>% group_by(P1) %>% summarise(kogus=n()) %>% arrange(-kogus)
```



```{r}
noodid %>% filter(tugiheli=="g") %>% unite("kolmik", P1, P2, P3) %>%
  group_by(kolmik) %>% summarise(kogus=n()) %>% arrange(-kogus) %>% head(7) %>%
  .$kolmik -> kolmikud

noodid %>% filter(tugiheli=="g") %>% mutate(kolmik=paste(P1, P2, P3, sep="_")) %>%
  filter(kolmik %in% kolmikud, P16 %in% c("g", "h", "d", "a")) %>%
  group_by(kolmik, P16) %>% summarise(kogus=n()) %>% arrange(-kogus)  %>%
  ggplot(aes(kolmik, kogus)) + geom_col() + facet_wrap(~P16)

```

```{r}

for( viimane in c("g", "a", "d", "h")){
   print(viimane)
   joonis= noodid %>% filter(P16==viimane) %>% unite("kolmik", P1, P2, P3) %>%
  group_by(kolmik) %>% summarise(kogus=n()) %>% arrange(-kogus) %>% head(7) %>%
    ggplot(aes(kolmik, kogus)) + geom_col() 
 
   print(joonis)
}
```

```{r}
noodid=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/muusika/regiviisid.txt")
  metaandmed=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/muusika/regiviisidmeta.txt")
  koos=metaandmed %>% inner_join(noodid, by=c("ID"="FKey"))
  
noodid %>% filter(tugiheli=="g") %>% unite("kolmik", P1, P2, P3) %>%
  group_by(kolmik) %>% summarise(kogus=n()) %>% arrange(-kogus) %>% head(7) %>%
  .$kolmik -> kolmikud

kolmikukogused=koos %>% mutate(kolmik=paste(P1, P2, P3, sep="_")) %>% 
  filter(kolmik %in% kolmikud) %>%
  group_by(kihelkond, kolmik) %>% summarise(kogus=n()) %>% arrange(-kogus)

kihelkonnakogused=koos %>% group_by(kihelkond) %>% summarise(kihelkonnakogus=n()) %>%   
  arrange(-kihelkonnakogus)

print(kihelkonnakogused)
print(kolmikukogused)

  
```