require(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
db.con <- dbConnect(drv, host="193.193.92.209", port=5434,
                    dbname="2016Z_kulig_michal", user="2016Z_kulig_michal", password="25942")
dane1 <- dbGetQuery(db.con, "SELECT tydzien, count(idkompozycji)
FROM (kwiaciarnia_hd.sprzedaz s join kwiaciarnia_hd.czas cz
USING (IDczasu)) join kwiaciarnia_hd.nadawca n
USING (IDnadawcy)
WHERE rok = '2015' AND wojewodztwo = 'Lubelskie'
GROUP BY tydzien
ORDER BY tydzien")


dane2 <- dbGetQuery(db.con, "SELECT tydzien, count(idkompozycji)
FROM (kwiaciarnia_hd.sprzedaz s join kwiaciarnia_hd.czas cz
USING (IDczasu)) join kwiaciarnia_hd.nadawca n
USING (IDnadawcy)
WHERE rok = '2015' AND wojewodztwo = 'Świętokrzyskie'
GROUP BY tydzien
ORDER BY tydzien")


dane3 <- dbGetQuery(db.con, "SELECT tydzien, count(idkompozycji)
FROM (kwiaciarnia_hd.sprzedaz s join kwiaciarnia_hd.czas cz
USING (IDczasu)) join kwiaciarnia_hd.nadawca n
USING (IDnadawcy)
WHERE rok = '2015' AND wojewodztwo = 'Podkarpackie'
GROUP BY tydzien
ORDER BY tydzien")
boxplot(dane1, col = "red")
boxplot(dane2, col = "blue")
boxplot(dane3, col = "green")
dbDisconnect(db.con)