%>% viisid %>% filter(tugiheli=="g") %>% count()

th="d"
thviisid= viisid %>% filter(tugiheli==th)
thviisid %>% filter(P1==th) %>% count() / count(thviisid)

tugihelid=c("g", "c", "e", "a")
for(th in tugihelid){
  thviisid= viisid %>% filter(tugiheli==th)
  print(thviisid %>% filter(P1==th) %>% count() / count(thviisid))
}

viisid %>% group_by(tugiheli, P1) %>% 
  summarise(kogus=n()) %>% arrange(desc(kogus)) %>%  View()


viisid %>% group_by(tugiheli, P1) %>% 
  summarise(kogus=n()) %>%
  group_by(tugiheli) %>% 
  mutate(tkogus=sum(kogus)) %>% 
  arrange(tkogus, kogus) %>% 
  arrange(-row_number()) %>% View()

viisid %>% group_by(tugiheli, P1) %>% 
  summarise(kogus=n()) %>%
  group_by(tugiheli) %>% 
  mutate(tkogus=sum(kogus)) %>% 
  arrange(tkogus, kogus) %>% 
  arrange(-row_number()) %>% 
  filter(row_number()<=2) %>% View()

viisid %>% group_by(tugiheli, P1) %>% 
  summarise(kogus=n()) %>%
  group_by(tugiheli) %>% 
  mutate(tkogus=sum(kogus)) %>% 
  arrange(tkogus, kogus) %>% 
  arrange(-row_number()) %>% 
  filter(tugiheli==P1) %>% 
  mutate(suhe=kogus/tkogus) %>% head(5)

viisid %>% group_by(tugiheli, P1) %>% 
  summarise(kogus=n()) %>%
  group_by(tugiheli) %>% 
  mutate(tkogus=sum(kogus)) %>% 
  filter(tugiheli==P1) %>% 
  mutate(suhe=kogus/tkogus) %>% 
  ungroup() %>% 
  mutate(tugiheli=factor(tugiheli, levels=tugiheli[rev(order(suhe))])) %>% 
  ggplot(aes(tugiheli, suhe)) + geom_col()