require(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
db.con <- dbConnect(drv, host="193.193.92.209", port=5434,
dbname="2016Z_litwora_elzbieta", user="2016Z_litwora_elzbieta", password="25950")
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")
dane1

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

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

dane3
boxplot(dane1, col = "red")
boxplot(dane2, col = "blue")
boxplot(dane3, col = "green")
dbDisconnect(db.con)