API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 3rd, 2017
179
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 17.75 KB | None | 0 0
raw download clone embed print report
  1. require(RPostgreSQL)
  2. drv <- dbDriver("PostgreSQL")
  3. dbcon <- dbConnect(drv, host="195.150.230.210", port=5434, dbname="2017Z_rojek_norbert", user="2017Z_rojek_norbert", password="qwerty")
  4.  
  5. tabela_bezrobocia<- dbGetQuery(dbcon, "SELECT * FROM projekt.bezrobocie
  6. LEFT JOIN projekt.czas USING (id_czasu)
  7. LEFT JOIN projekt.plec USING (id_plci)
  8. LEFT JOIN projekt.powiat USING (id_powiatu)
  9. LEFT JOIN projekt.przerwa USING (id_przerwy)
  10. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa);")
  11. zgloszenie <- dbGetQuery(dbcon, "SELECT * FROM projekt.oferty
  12. LEFT JOIN projekt.czas USING (id_czasu)
  13. LEFT JOIN projekt.zgloszenie USING (id_zgloszenia)
  14. LEFT JOIN projekt.powiat USING (id_powiatu)
  15. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa);")
  16. ilosc_od_czasu <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok FROM projekt.bezrobocie
  17. LEFT JOIN projekt.czas USING (id_czasu)
  18. LEFT JOIN projekt.plec USING (id_plci)
  19. LEFT JOIN projekt.powiat USING (id_powiatu)
  20. LEFT JOIN projekt.przerwa USING (id_przerwy)
  21. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  22. GROUP BY rok
  23. ORDER BY rok")
  24. ilosc_od_czasu_oferty <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok FROM projekt.oferty
  25. LEFT JOIN projekt.czas USING (id_czasu)
  26. LEFT JOIN projekt.powiat USING (id_powiatu)
  27. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  28. GROUP BY rok
  29. ORDER BY rok")
  30. ilosc_od_czasu_i_wojewodztwa <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok, nazwa_wojewodztwa FROM projekt.bezrobocie
  31. LEFT JOIN projekt.czas USING (id_czasu)
  32. LEFT JOIN projekt.plec USING (id_plci)
  33. LEFT JOIN projekt.powiat USING (id_powiatu)
  34. LEFT JOIN projekt.przerwa USING (id_przerwy)
  35. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  36. GROUP BY nazwa_wojewodztwa, rok
  37. ORDER BY rok;")
  38. ilosc_od_wojewodztwa <- dbGetQuery(dbcon, "SELECT suma2011, suma2012, suma2013,suma2014,suma2015, nazwa_wojewodztwa from
  39. (select SUM(liczba) as suma2011, nazwa_wojewodztwa FROM projekt.bezrobocie
  40. LEFT JOIN projekt.czas USING (id_czasu)
  41. LEFT JOIN projekt.plec USING (id_plci)
  42. LEFT JOIN projekt.powiat USING (id_powiatu)
  43. LEFT JOIN projekt.przerwa USING (id_przerwy)
  44. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  45. where rok = '2011'
  46. GROUP BY nazwa_wojewodztwa
  47. ) as q2011
  48. LEFT JOIN
  49. (select SUM(liczba) as suma2012, nazwa_wojewodztwa FROM projekt.bezrobocie
  50. LEFT JOIN projekt.czas USING (id_czasu)
  51. LEFT JOIN projekt.plec USING (id_plci)
  52. LEFT JOIN projekt.powiat USING (id_powiatu)
  53. LEFT JOIN projekt.przerwa USING (id_przerwy)
  54. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  55. where rok = '2012'
  56. GROUP BY nazwa_wojewodztwa
  57. ) as q2012
  58. using (nazwa_wojewodztwa)
  59. LEFT JOIN
  60. (select SUM(liczba) as suma2013, nazwa_wojewodztwa FROM projekt.bezrobocie
  61. LEFT JOIN projekt.czas USING (id_czasu)
  62. LEFT JOIN projekt.plec USING (id_plci)
  63. LEFT JOIN projekt.powiat USING (id_powiatu)
  64. LEFT JOIN projekt.przerwa USING (id_przerwy)
  65. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  66. where rok = '2013'
  67. GROUP BY nazwa_wojewodztwa
  68. ) as q2013
  69. using (nazwa_wojewodztwa)
  70. LEFT JOIN
  71. (select SUM(liczba) as suma2014, nazwa_wojewodztwa FROM projekt.bezrobocie
  72. LEFT JOIN projekt.czas USING (id_czasu)
  73. LEFT JOIN projekt.plec USING (id_plci)
  74. LEFT JOIN projekt.powiat USING (id_powiatu)
  75. LEFT JOIN projekt.przerwa USING (id_przerwy)
  76. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  77. where rok = '2014'
  78. GROUP BY nazwa_wojewodztwa
  79. ) as q2014
  80. using (nazwa_wojewodztwa)
  81. LEFT JOIN
  82. (select SUM(liczba) as suma2015, nazwa_wojewodztwa FROM projekt.bezrobocie
  83. LEFT JOIN projekt.czas USING (id_czasu)
  84. LEFT JOIN projekt.plec USING (id_plci)
  85. LEFT JOIN projekt.powiat USING (id_powiatu)
  86. LEFT JOIN projekt.przerwa USING (id_przerwy)
  87. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  88. where rok = '2015'
  89. GROUP BY nazwa_wojewodztwa
  90. ) as q2015
  91. using (nazwa_wojewodztwa)")
  92. ilosc_ofert_od_czasu_i_wojewodztwa <- dbGetQuery(dbcon, "SELECT SUM(liczba),rok, nazwa_wojewodztwa FROM projekt.oferty
  93. LEFT JOIN projekt.czas USING (id_czasu)
  94. LEFT JOIN projekt.powiat USING (id_powiatu)
  95. LEFT JOIN projekt.wojewodztwo USING (id_wojewodztwa)
  96. GROUP BY nazwa_wojewodztwa, rok
  97. ORDER BY rok;")
  98.  
  99. dbDisconnect(dbcon)
  100.  
  101.  
  102. library(ggplot2)
  103.  
  104. #ggplot(ilosc_od_czasu_i_wojewodztwa, aes(x = ilosc_od_czasu_i_wojewodztwa$sum)) + geom_histogram()
  105.  
  106. #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,
  107. # ramka_woj7$sum, ramka_woj8$sum, ramka_woj9$sum, ramka_woj10$sum, ramka_woj11$sum, ramka_woj12$sum,
  108. # ramka_woj13$sum, ramka_woj14$sum, ramka_woj15$sum, ramka_woj16$sum,
  109. # main = "Ilość bezrobotnych w województwie",
  110. # names = c("DOLNOŚLĄSKIE", "MAŁOPOLSKIE", "KUJAWSKO-POMORSKIE", "LUBELSKIE", "LUBUSKIE", "ŁÓDZKIE",
  111. # "MAZOWIECKIE", "OPOLSKIE", "PODKARPACKIE", "PODLASKIE", "POMORSKIE", "ŚLĄSKIE",
  112. # "ŚWIĘTOKRZYSKIE", "WARMIŃSKO-MAZURSKIE", "WIELKOPOLSKIE", "ZACHODNIOPOMORSKIE"),
  113. # col = c("turquoise", "tomato", "darkolivegreen1")
  114. # )
  115. #+ theme(plot.title = element_text(size = rel(2)))
  116.  
  117. #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() +
  118. # theme(text = element_text(size=12),
  119. # axis.text.x = element_text(angle=60, hjust=1),
  120. # axis.text.y = element_text(size = 12)) +
  121. # labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")
  122.  
  123.  
  124.  
  125. #lista <- list()
  126. #lista_wartosci <- list()
  127. #for (val in ilosc_od_czasu_i_wojewodztwa)
  128. # if(!val$nazwa_wojewodztwa %in% lista){
  129. # lista <- val$nazwa_wojewodztwa
  130. # }
  131.  
  132.  
  133. #matplot(ilosc_od_czasu_i_wojewodztwa, type = c("b"),col = 1:20) #plot
  134. #plot(ilosc_od_czasu_i_wojewodztwa$rok,ilosc_od_czasu_i_wojewodztwa$sum, type="l", xlab = "rok", ylab = "sumaryczna liczba bezrobotnych",col="blue")
  135.  
  136.  
  137. #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() +
  138. # theme(text = element_text(size=12),
  139. # axis.text.x = element_text(angle=60, hjust=1),
  140. # axis.text.y = element_text(size = 12)) +
  141. # labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")
  142.  
  143. #(wykres1)
  144. #dobry wykres sum na wojewodztwo
  145. #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() +
  146. # theme(text = element_text(size=12),
  147. # axis.text.x = element_text(angle=60, hjust=1),
  148. # axis.text.y = element_text(size = 12)) +
  149. # labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")
  150.  
  151. #(wykres2)
  152. #dobry wykres ilosci rozpiętości
  153. #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() +
  154. # theme(text = element_text(size=12),
  155. # axis.text.x = element_text(angle=60, hjust=1),
  156. # axis.text.y = element_text(size = 12)) +
  157. # labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")
  158.  
  159.  
  160. #(wykres3)
  161. #wykres sum na przestrzeni lat zależnie od województwa
  162. #ramka_woj1 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="DOLNOŚLĄSKIE",]
  163. #ramka_woj2 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="MAŁOPOLSKIE",]
  164. #ramka_woj3 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="KUJAWSKO-POMORSKIE",]
  165. #ramka_woj4 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="LUBELSKIE",]
  166. #ramka_woj5 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="LUBUSKIE",]
  167. #ramka_woj6 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ŁÓDZKIE",]
  168. #ramka_woj7 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="MAZOWIECKIE",]
  169. #ramka_woj8 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="OPOLSKIE",]
  170. #ramka_woj9 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="PODKARPACKIE",]
  171. #ramka_woj10 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="PODLASKIE",]
  172. #ramka_woj11 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="POMORSKIE",]
  173. #ramka_woj12 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ŚLĄSKIE",]
  174. #ramka_woj13 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ŚWIĘTOKRZYSKIE",]
  175. #ramka_woj14 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="WARMIŃSKO-MAZURSKIE",]
  176. #ramka_woj15 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="WIELKOPOLSKIE",]
  177. #ramka_woj16 <- ilosc_od_czasu_i_wojewodztwa[ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa=="ZACHODNIOPOMORSKIE",]
  178. #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))
  179. #lines(ramka_woj1$rok, ramka_woj2$sum, type="l", col="red")
  180. #lines(ramka_woj1$rok, ramka_woj3$sum, type="l", col="green")
  181. #lines(ramka_woj1$rok, ramka_woj4$sum, type="l", col="yellow")
  182. #lines(ramka_woj1$rok, ramka_woj5$sum, type="l", col="aquamarine")
  183. #lines(ramka_woj1$rok, ramka_woj6$sum, type="l", col="bisque")
  184. #lines(ramka_woj1$rok, ramka_woj7$sum, type="l", col="blueviolet")
  185. #lines(ramka_woj1$rok, ramka_woj8$sum, type="l", col="brown4")
  186. #lines(ramka_woj1$rok, ramka_woj9$sum, type="l", col="cadetblue")
  187. #lines(ramka_woj1$rok, ramka_woj10$sum, type="l", col="chartreuse")
  188. #lines(ramka_woj1$rok, ramka_woj11$sum, type="l", col="cadetblue1")
  189. #lines(ramka_woj1$rok, ramka_woj12$sum, type="l", col="chartreuse4")
  190. #lines(ramka_woj1$rok, ramka_woj13$sum, type="l", col="coral")
  191. #lines(ramka_woj1$rok, ramka_woj14$sum, type="l", col="hotpink")
  192. #lines(ramka_woj1$rok, ramka_woj15$sum, type="l", col="navy")
  193. #lines(ramka_woj1$rok, ramka_woj16$sum, type="l", col="orange")
  194. #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")
  195. #cl=c("blue","red","green","yellow","aquamarine","bisque","blueviolet","brown4","cadetblue",
  196. # "chartreuse","cadetblue1","chartreuse4","coral","hotpink","navy","orange")
  197. #legend("bottomright", legend = k[1:16], col = cl[1:16], lty = 1, title = "legenda")
  198.  
  199. #wykres 6
  200. #zaleznie od powiatu
  201. #ggplot(tabela_bezrobocia, aes(x=tabela_bezrobocia$nazwa_wojewodztwa, y=tabela_bezrobocia$liczba, x)) + geom_bin2d() +
  202. # theme(text = element_text(size=12),
  203. # axis.text.x = element_text(angle=60, hjust=1),
  204. # axis.text.y = element_text(size = 12)) +
  205. # labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015")
  206.  
  207. #(wykres4)
  208. #dobry wykres ilosci rozpiętości - oferty od czasu, zestawić z wykresem dwa (który jest od bezrobocia)
  209. #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() +
  210. # theme(text = element_text(size=12),
  211. # axis.text.x = element_text(angle=60, hjust=1),
  212. # axis.text.y = element_text(size = 12)) +
  213. # labs(x = "województwo", y = "ilość ofert w latach 2011-2015")
  214.  
  215.  
  216. 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() +
  217. theme(text = element_text(size=12),
  218. axis.text.x = element_text(angle=60, hjust=1),
  219. axis.text.y = element_text(size = 12)) +
  220. labs(x = "województwo", y = "ilość ofert w latach 2011-2015")
  221.  
  222. cl=c("blue","red","green","yellow","aquamarine","bisque","blueviolet","brown4","cadetblue",
  223. "chartreuse","cadetblue1","chartreuse4","coral","hotpink","navy","orange")
  224. 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() +
  225. theme(text = element_text(size=12),
  226. axis.text.x = element_text(angle=60, hjust=1),
  227. axis.text.y = element_text(size = 12)) +
  228. labs(x = "województwo", y = "ilość bezrobotnych w latach 2011-2015") +
  229. col(cl,)
  230.  
  231.  
  232. lista_z_listami <- list()
  233. for (i in ilosc_od_czasu_i_wojewodztwa){
  234. licznik = 1
  235. while (licznik <= length(ilosc_od_czasu_i_wojewodztwa$sum)){
  236. lista_z_listami[[length(lista_z_listami)+1]] <- list(ilosc_od_czasu_i_wojewodztwa$nazwa_wojewodztwa[licznik],
  237. ilosc_od_czasu_i_wojewodztwa$sum[licznik],
  238. ilosc_od_czasu_i_wojewodztwa$rok[licznik])
  239. licznik <- licznik + 1
  240. }
  241. }
  242.  
  243.  
  244. lista_wojewodztw <- c("DOLNOŚLĄSKIE", "MAŁOPOLSKIE", "KUJAWSKO-POMORSKIE", "LUBELSKIE", "LUBUSKIE", "ŁÓDZKIE",
  245. "MAZOWIECKIE", "OPOLSKIE", "PODKARPACKIE", "PODLASKIE", "POMORSKIE", "ŚLĄSKIE",
  246. "ŚWIĘTOKRZYSKIE", "WARMIŃSKO-MAZURSKIE", "WIELKOPOLSKIE", "ZACHODNIOPOMORSKIE")
  247.  
  248. min_dla_wojewodztwa <- list()
  249. for (i in 1:16){
  250. min_dla_wojewodztwa[i] <- min(c(ilosc_od_wojewodztwa$suma2011[i],
  251. ilosc_od_wojewodztwa$suma2012[i],
  252. ilosc_od_wojewodztwa$suma2013[i],
  253. ilosc_od_wojewodztwa$suma2014[i],
  254. ilosc_od_wojewodztwa$suma2015[i]))
  255. }
  256. max_dla_wojewodztwa <- list()
  257. for (i in 1:16){
  258. max_dla_wojewodztwa[i] <- max(c(ilosc_od_wojewodztwa$suma2011[i],
  259. ilosc_od_wojewodztwa$suma2012[i],
  260. ilosc_od_wojewodztwa$suma2013[i],
  261. ilosc_od_wojewodztwa$suma2014[i],
  262. ilosc_od_wojewodztwa$suma2015[i]))
  263. }
  264. #df <- data.frame(x=lista_wojewodztw, y1=min_dla_wojewodztwa, y2=max_dla_wojewodztwa)
  265.  
  266. #(wykres1)
  267. #dobry wykres sum na wojewodztwo
  268. ggplot(ilosc_od_wojewodztwa, aes(ilosc_od_wojewodztwa$nazwa_wojewodztwa)) +
  269. geom_col() +
  270. theme(text = element_text(size=12),
  271. axis.text.x = element_text(angle=60, hjust=1),
  272. axis.text.y = element_text(size = 12)) +
  273. labs(x = "wojewóssssssdztwo", y = "ilość bezrobotnych w latach 2011-2015") +
  274. geom_line(aes(y=ilosc_od_wojewodztwa$suma2011), color="red")
  275.  
  276.  
  277. #wykres5
  278. #ilosc bezrobotnych od roku i wojewodztwa
  279. #matplot(1:16,
  280. # cbind(ilosc_od_wojewodztwa$suma2011,
  281. # ilosc_od_wojewodztwa$suma2012,
  282. # ilosc_od_wojewodztwa$suma2013,
  283. # ilosc_od_wojewodztwa$suma2014,
  284. # ilosc_od_wojewodztwa$suma2015),
  285. # type="l",
  286. # col=c("blue","red","green","orange","aquamarine"),
  287. # lty=c(1,1),
  288. # xlab = "województwo",
  289. # ylab = "ilość bezrobotnych od roku")#
  290. #
  291. #axis(1, labels = paste(ilosc_od_wojewodztwa$nazwa_wojewodztwa,1:16), side=1, at=1:16, cex.axis=0.2)
  292. #legend("bottomright", legend = c(2011,2012,2013,2014,2015), col = c("blue","red","green","orange","aquamarine"), lty = 1, title = "legenda")
  293.  
  294. #wykres 7
  295. #oferty i bezrobotni od roku
  296. matplot(ilosc_od_czasu$rok,
  297. cbind(ilosc_od_czasu_oferty$sum,
  298. ilosc_od_czasu$sum),
  299. type="l",
  300. col=c("blue","red","green","orange","aquamarine"),
  301. lty=c(1,1),
  302. xlab = "rok",
  303. ylab = "ilość ofert i bezrobotnych w latach 2011-2015")
  304. legend("bottomright", legend = c("oferty", "bezrobotni"), col = c("blue","red"), lty = 1, title = "legenda")
  305.  
  306. axis(1, labels = paste(ilosc_od_wojewodztwa$nazwa_wojewodztwa,1:16), side=1, at=1:16, cex.axis=0.2)
  307. 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
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!