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

tabela_bezrobocia<- dbGetQuery(dbcon, "SELECT * 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);")
zgloszenie <- dbGetQuery(dbcon, "SELECT * FROM projekt.oferty
LEFT JOIN projekt.czas USING (id_czasu)
LEFT JOIN projekt.zgloszenie USING (id_zgloszenia)
LEFT JOIN projekt.powiat USING (id_powiatu)
LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa);")
ilosc_od_czasu <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok 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 rok
ORDER BY rok")
ilosc_od_czasu_i_wojewodztwa <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok, nazwa_wojewodztwa 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, rok
ORDER BY rok;")
ilosc_ofert_od_czasu_i_wojewodztwa <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok, nazwa_wojewodztwa FROM projekt.oferty
LEFT JOIN projekt.czas USING (id_czasu)
LEFT JOIN projekt.powiat USING (id_powiatu)
LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
GROUP BY nazwa_wojewodztwa, rok
ORDER BY rok;")

dbDisconnect(dbcon)


library(ggplot2)

#ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x = ilosc_od_czasu_i_wojewodztwa$sum)) + geom_histogram()

#boxplot(theme=theme(axis.text.x = element_text(angle = 120, hjust = 100)), ramka_woj1$sum, ramka_woj2$sum, ramka_woj3$sum, ramka_woj4$sum, ramka_woj5$sum, ramka_woj6$sum,
#                    ramka_woj7$sum, ramka_woj8$sum, ramka_woj9$sum, ramka_woj10$sum, ramka_woj11$sum, ramka_woj12$sum,
#                    ramka_woj13$sum, ramka_woj14$sum, ramka_woj15$sum, ramka_woj16$sum,
#        main = "Ilość bezrobotnych w województwie",
#        names = c("DOLNOŚLĄSKIE", "MAŁOPOLSKIE", "KUJAWSKO-POMORSKIE", "LUBELSKIE", "LUBUSKIE", "ŁÓDZKIE",
#                  "MAZOWIECKIE", "OPOLSKIE", "PODKARPACKIE", "PODLASKIE", "POMORSKIE", "ŚLĄSKIE",
#                  "ŚWIĘTOKRZYSKIE", "WARMIŃSKO-MAZURSKIE", "WIELKOPOLSKIE", "ZACHODNIOPOMORSKIE"),
#        col = c("turquoise", "tomato", "darkolivegreen1")
#        )
#+ theme(plot.title = element_text(size = rel(2)))

#ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x=ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_od_czasu_i_wojewodztwa$sum, x)) + geom_point() +
#  theme(text = element_text(size=12),
#        axis.text.x = element_text(angle=60, hjust=1),
#        axis.text.y = element_text(size = 12)) +
#  labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")



#lista <- list()
#lista_wartosci <- list()
#for (val in ilosc_od_czasu_i_wojewodztwa)
# if(!val$nazwa_wojewodztwa %in% lista){
#   lista <- val$nazwa_wojewodztwa
#  }


#matplot(ilosc_od_czasu_i_wojewodztwa, type = c("b"),col = 1:20) #plot
#plot(ilosc_od_czasu_i_wojewodztwa$rok,ilosc_od_czasu_i_wojewodztwa$sum, type="l", xlab = "rok", ylab = "sumaryczna liczba bezrobotnych",col="blue")


#ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x=ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_od_czasu_i_wojewodztwa$sum, x)) + geom_point() +
#  theme(text = element_text(size=12),
#        axis.text.x = element_text(angle=60, hjust=1),
#        axis.text.y = element_text(size = 12)) +
#  labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")

#(wykres1)
#dobry wykres sum na wojewodztwo
#ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x=ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_od_czasu_i_wojewodztwa$sum, x)) + geom_col() +
#  theme(text = element_text(size=12),
#        axis.text.x = element_text(angle=60, hjust=1),
#        axis.text.y = element_text(size = 12)) +
#  labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")

#(wykres2)
#dobry wykres ilosci rozpiętości
#ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x=ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_od_czasu_i_wojewodztwa$sum, x)) + geom_bin2d() +
#  theme(text = element_text(size=12),
#        axis.text.x = element_text(angle=60, hjust=1),
#        axis.text.y = element_text(size = 12)) +
#  labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")


#(wykres3)
#wykres sum na przestrzeni lat zależnie od województwa
#ramka_woj1 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="DOLNOŚLĄSKIE",]
#ramka_woj2 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="MAŁOPOLSKIE",]
#ramka_woj3 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="KUJAWSKO-POMORSKIE",]
#ramka_woj4 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="LUBELSKIE",]
#ramka_woj5 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="LUBUSKIE",]
#ramka_woj6 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ŁÓDZKIE",]
#ramka_woj7 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="MAZOWIECKIE",]
#ramka_woj8 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="OPOLSKIE",]
#ramka_woj9 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="PODKARPACKIE",]
#ramka_woj10 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="PODLASKIE",]
#ramka_woj11 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="POMORSKIE",]
#ramka_woj12 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ŚLĄSKIE",]
#ramka_woj13 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ŚWIĘTOKRZYSKIE",]
#ramka_woj14 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="WARMIŃSKO-MAZURSKIE",]
#ramka_woj15 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="WIELKOPOLSKIE",]
#ramka_woj16 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ZACHODNIOPOMORSKIE",]
#plot(ramka_woj1$rok, ramka_woj1$sum, type="l", xlab = "rok", ylab = "sumaryczna liczba w województwie", col="blue", ylim=c(0,400000), xlim=c(2011,2018))
#lines(ramka_woj1$rok, ramka_woj2$sum, type="l", col="red")
#lines(ramka_woj1$rok, ramka_woj3$sum, type="l", col="green")
#lines(ramka_woj1$rok, ramka_woj4$sum, type="l", col="yellow")
#lines(ramka_woj1$rok, ramka_woj5$sum, type="l", col="aquamarine")
#lines(ramka_woj1$rok, ramka_woj6$sum, type="l", col="bisque")
#lines(ramka_woj1$rok, ramka_woj7$sum, type="l", col="blueviolet")
#lines(ramka_woj1$rok, ramka_woj8$sum, type="l", col="brown4")
#lines(ramka_woj1$rok, ramka_woj9$sum, type="l", col="cadetblue")
#lines(ramka_woj1$rok, ramka_woj10$sum, type="l", col="chartreuse")
#lines(ramka_woj1$rok, ramka_woj11$sum, type="l", col="cadetblue1")
#lines(ramka_woj1$rok, ramka_woj12$sum, type="l", col="chartreuse4")
#lines(ramka_woj1$rok, ramka_woj13$sum, type="l", col="coral")
#lines(ramka_woj1$rok, ramka_woj14$sum, type="l", col="hotpink")
#lines(ramka_woj1$rok, ramka_woj15$sum, type="l", col="navy")
#lines(ramka_woj1$rok, ramka_woj16$sum, type="l", col="orange")
#k=c("DOLNOŚLĄSKIE", "MAŁOPOLSKIE", "KUJAWSKO-POMORSKIE", "LUBELSKIE", "LUBUSKIE", "ŁÓDZKIE", "MAZOWIECKIE", "OPOLSKIE", "PODKARPACKIE", "PODLASKIE", "POMORSKIE", "ŚLĄSKIE",  "ŚWIĘTOKRZYSKIE", "WARMIŃSKO-MAZURSKIE", "WIELKOPOLSKIE", "ZACHODNIOPOMORSKIE")
#cl=c("blue","red","green","yellow","aquamarine","bisque","blueviolet","brown4","cadetblue",
#     "chartreuse","cadetblue1","chartreuse4","coral","hotpink","navy","orange")
#legend("bottomright", legend = k[1:16], col = cl[1:16], lty = 1, title = "legenda")


#ggplot(tabela_bezrobocia, aes(x=tabela_bezrobocia$nazwa_wojewodztwa, y=tabela_bezrobocia$liczba, x)) + geom_bin2d() +
#  theme(text = element_text(size=12),
#        axis.text.x = element_text(angle=60, hjust=1),
#        axis.text.y = element_text(size = 12)) +
#  labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")

#(wykres4)
#dobry wykres ilosci rozpiętości - oferty od czasu, zestawić z wykresem dwa (który jest od bezrobocia)
#ggplot(ilosc_ofert_od_czasu_i_wojewodztwa, aes(x=ilosc_ofert_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_ofert_od_czasu_i_wojewodztwa$sum, x)) + geom_bin2d() +
#  theme(text = element_text(size=12),
#        axis.text.x = element_text(angle=60, hjust=1),
#        axis.text.y = element_text(size = 12)) +
#  labs(x = "województwo", y = "ilość ofert w latach 2011-2015")
max(c(1,2,3))
lista_list <- list()
lista_nazw_do_jednopodstawowych <- ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa[1:16]
for(jedno_wojewodztwo in lista_nazw_do_jednopodstawowych){

  lista_dla_woj <- list()

  for (i in ilosc_od_czasu_i_wojewodztwa){
    print("i: ")
    print(i)
    lista_dla_woj <<- i
  }
  rm(lista_dla_woj)
  print("@@")
  print(lista_list)
  lista_list <<- list(diff(lista_dla_woj) / min(lista_dla_woj) * 100)
}

ggplot(ilosc_ofert_od_czasu_i_wojewodztwa, aes(x=ilosc_ofert_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_ofert_od_czasu_i_wojewodztwa$sum, x)) + geom_bin2d() +
  theme(text = element_text(size=12),
        axis.text.x = element_text(angle=60, hjust=1),
        axis.text.y = element_text(size = 12)) +
  labs(x = "województwo", y = "ilość ofert w latach 2011-2015")