library(RMySQL)
library(tidyverse)
library(animation)
yhendus<-dbConnect(dbDriver("MySQL"), user='mart', password='ajutine1234', host='localhost', dbname='mart' )
minkogus=5
paring<-dbSendQuery(yhendus, paste0("
  SELECT title, COUNT(*)  FROM
  (SELECT efis_film_type_translation.title, 
 efis_film_type.id AS tyybi_id 
 FROM efis_film_type 
 JOIN efis_film_type_translation 
 ON efis_film_type_translation.film_type_id=efis_film_type.id AND
 efis_film_type_translation.language='et'
 WHERE efis_film_type.id IN (33, 6, 56)) AS tabel1
  LEFT JOIN
 (SELECT COUNT(efis_film_role_person.id) AS naitlejaid, 
  efis_film_type_rel.film_type_id,
efis_film.id AS filmi_id	
 FROM efis_film       	
 JOIN efis_film_type_rel ON efis_film_type_rel.film_id=efis_film.id
 LEFT JOIN efis_film_role_person ON efis_film_role_person.film_id=efis_film.id	
 WHERE film_type_id IN (56, 33, 6)
GROUP BY efis_film.id
 HAVING naitlejaid >=", minkogus, " AND naitlejaid<=300
) AS tabel2
 ON tabel1.tyybi_id=tabel2.film_type_id
GROUP BY title
"))
andmed=fetch(paring, n=-1)
#andmed=andmed %>% filter(kymnend>=1910 & kymnend<=2010)
andmed