require(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
db.con <- dbConnect(drv, host="193.193.92.209", port=5434,
                    dbname="XXXXXXXXXX", user="XXXXXXXx", password="XXXXX")

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")

dbDisconnect(db.con)

boxplot(dane1$count, dane2$count, dane3$count, names = c("Lubelskie", "Świętokrzyskie", "Podkarpackie"));