require(RPostgreSQL)
require(ape)
require(RColorBrewer)
require(DBI)
drv <- dbDriver("PostgreSQL")
dbcon <- dbConnect(drv, host="195.150.230.210", port=5434, dbname="2017Z_rojek_norbert", user="2017Z_rojek_norbert", password="qwerty")

ilosc_od_wojewodztwa <- dbGetQuery(dbcon, "SELECT nazwa_wojewodztwa, SUM(liczba) as vectorsum FROM projekt.bezrobocie
LEFT JOIN projekt.czas USING (id_czasu)
LEFT JOIN projekt.plec USING (id_plci)
LEFT JOIN projekt.powiat USING (id_powiatu)
LEFT JOIN projekt.przerwa USING (id_przerwy)
LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
GROUP BY nazwa_wojewodztwa
ORDER BY vectorsum;")

dbDisconnect(dbcon)

library(ggplot2)

clusters <- hclust(dist(ilosc_od_wojewodztwa$vectorsum), method = "average")
clusters$labels = ilosc_od_wojewodztwa$nazwa_wojewodztwa
plot(as.phylo(clusters), type = "phylogram", cex = 1, label.offet = 100, title("Hierarchical Cluster"))