# Kod 4.7. Pozyskanie danych z bazy Diagnoza społeczna i prezentacja graficzna
library(foreign)
link='http://diagnoza.com/pliki/bazy_danych/2015/ds_0_15_ind_14112015.sav'
dane=read.spss(link,to.data.frame = TRUE)
dochód=dane$HP65
dochód<-dochód[!is.na(dochód)]
dochód=as.numeric(paste(dochód))
hist(dochód,breaks=50, xlab='Dochód netto w zł', ylab='Liczba osób',main='')
