Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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_oferty <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok 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 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_od_wojewodztwa <- dbGetQuery(dbcon, "SELECT suma2011, suma2012, suma2013,suma2014,suma2015, nazwa_wojewodztwa from
- (select SUM(liczba) as suma2011, 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)
- where rok = '2011'
- GROUP BY nazwa_wojewodztwa
- ) as q2011
- LEFT JOIN
- (select SUM(liczba) as suma2012, 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)
- where rok = '2012'
- GROUP BY nazwa_wojewodztwa
- ) as q2012
- using (nazwa_wojewodztwa)
- LEFT JOIN
- (select SUM(liczba) as suma2013, 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)
- where rok = '2013'
- GROUP BY nazwa_wojewodztwa
- ) as q2013
- using (nazwa_wojewodztwa)
- LEFT JOIN
- (select SUM(liczba) as suma2014, 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)
- where rok = '2014'
- GROUP BY nazwa_wojewodztwa
- ) as q2014
- using (nazwa_wojewodztwa)
- LEFT JOIN
- (select SUM(liczba) as suma2015, 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)
- where rok = '2015'
- GROUP BY nazwa_wojewodztwa
- ) as q2015
- using (nazwa_wojewodztwa)")
- 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")
- #wykres 6
- #zaleznie od powiatu
- #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")
- #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")#
- #cl=c("blue","red","green","yellow","aquamarine","bisque","blueviolet","brown4","cadetblue",
- # "chartreuse","cadetblue1","chartreuse4","coral","hotpink","navy","orange")
- #ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x=ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa, y=ilosc_od_czasu_i_wojewodztwa$sum, x)) + geom_boxplot() +
- # 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") +
- # col(cl,)
- #lista_z_listami <- list()
- #for (i in ilosc_od_czasu_i_wojewodztwa){
- # licznik = 1
- # while (licznik <= length(ilosc_od_czasu_i_wojewodztwa$sum)){
- # lista_z_listami[[length(lista_z_listami)+1]] <- list(ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa[licznik],
- # ilosc_od_czasu_i_wojewodztwa$sum[licznik],
- # ilosc_od_czasu_i_wojewodztwa$rok[licznik])
- # licznik <- licznik + 1
- # }
- #}
- #
- #
- #lista_wojewodztw <- 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")
- #
- #min_dla_wojewodztwa <- list()
- #for (i in 1:16){
- # min_dla_wojewodztwa[i] <- min(c(ilosc_od_wojewodztwa$suma2011[i],
- # ilosc_od_wojewodztwa$suma2012[i],
- # ilosc_od_wojewodztwa$suma2013[i],
- # ilosc_od_wojewodztwa$suma2014[i],
- # ilosc_od_wojewodztwa$suma2015[i]))
- #}
- #max_dla_wojewodztwa <- list()
- #for (i in 1:16){
- # max_dla_wojewodztwa[i] <- max(c(ilosc_od_wojewodztwa$suma2011[i],
- # ilosc_od_wojewodztwa$suma2012[i],
- # ilosc_od_wojewodztwa$suma2013[i],
- # ilosc_od_wojewodztwa$suma2014[i],
- # ilosc_od_wojewodztwa$suma2015[i]))
- #}
- #df <- data.frame(x=lista_wojewodztw, y1=min_dla_wojewodztwa, y2=max_dla_wojewodztwa)
- #(wykres1)
- #dobry wykres sum na wojewodztwo
- #ggplot(ilosc_od_wojewodztwa, aes(ilosc_od_wojewodztwa$nazwa_wojewodztwa)) +
- # 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óssssssdztwo", y = "ilość bezrobotnych w latach 2011-2015") +
- # geom_line(aes(y=ilosc_od_wojewodztwa$suma2011), color="red")
- #wykres5
- #ilosc bezrobotnych od roku i wojewodztwa
- #matplot(1:16,
- # cbind(ilosc_od_wojewodztwa$suma2011,
- # ilosc_od_wojewodztwa$suma2012,
- # ilosc_od_wojewodztwa$suma2013,
- # ilosc_od_wojewodztwa$suma2014,
- # ilosc_od_wojewodztwa$suma2015),
- # type="l",
- # col=c("blue","red","green","orange","aquamarine"),
- # lty=c(1,1),
- # xlab = "województwo",
- # ylab = "ilość bezrobotnych od roku")#
- #
- #axis(1, labels = paste(ilosc_od_wojewodztwa$nazwa_wojewodztwa,1:16), side=1, at=1:16, cex.axis=0.2)
- #legend("bottomright", legend = c(2011,2012,2013,2014,2015), col = c("blue","red","green","orange","aquamarine"), lty = 1, title = "legenda")
- #wykres 7
- #oferty i bezrobotni od roku
- #matplot(ilosc_od_czasu$rok,
- # cbind(ilosc_od_czasu_oferty$sum,
- # ilosc_od_czasu$sum),
- # type="l",
- # col=c("blue","red","green","orange","aquamarine"),
- # lty=c(1,1),
- # xlab = "rok",
- # ylab = "ilość ofert i bezrobotnych w latach 2011-2015")
- #legend("bottomright", legend = c("oferty", "bezrobotni"), col = c("blue","red"), lty = 1, title = "legenda")
- #axis(1, labels = paste(ilosc_od_wojewodztwa$nazwa_wojewodztwa,1:16), side=1, at=1:16, cex.axis=0.2)
- #legend("bottomright", legend = c(2011,2012,2013,2014,2015), col = c("blue","red","green","orange","aquamarine"), lty = 1, title = "legenda")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement