R/Housing.R
Housing.RdHousing data from Pakistan Social and Living Standards Measurement 2015-16.
data(Housing)
A data.table and data.frame with 24238 observations of 36 variables.
hhcodeHousehold 10 digits code.
ProvinceProvince of Pakistan
RegionRegion of Pakistan (Rural/Urban)
PSUprimary sampling unit 8 digits code
S3aq01Dwelling type
S3aq02Occupancy status
S3aq03Estimated rent of the house (Rs.)
S3aq04Number of rooms in household
S3aq05AElectricity facility
S3aq05BGas facility
S3aq06Source of drinking water
S3aq07Water availability (hours)
S3aq08Water system installed by
S3aq09Water system look-after by
S3aq10Distance of source of drinking water (Km.)
S3aq11Time consumption in fetching drinking water (Minutes)
S3aq12Water payment status (Yes/No)
S3aq13One month payment for water (Rs.)
S3aq14Willingness to improve water supply system (Yes/No)
S3aq15Toilet used by household
S3aq16Defecation/urination place
S3aq17Is your house connected with drainage/swerage system?
S3aq18AGarbage collected by
S3aq18BGarbage collected in neighbourhod by
S3aq19AMonthly expenditure on household's garbage collection
S3aq19BMonthly expenditure on neighbourhood's garbage collection
S3aq20AInternet facility in household (Yes/No)
S3aq20BBroad band facility in household (Yes/No)
S3aq20CMobile facility in household (Yes/No)
S3aq20DLandline facility in household (Yes/No)
S3aq20EDesktop computer facility in household (Yes/No)
S3aq20FLaptop facility in household (Yes/No)
S3aq20GTablet facility in household (Yes/No)
S3aq20HI-pad facility in household (Yes/No)
S3aq21AType of internet services
S3aq21BType of internet services for broadband
Pakistan Bureau of Statistics, Micro data (http://www.pbs.gov.pk/content/microdata).
Agriculture
, Education
, Expenditure
, Employment
, HHRoster
, ICT
, LiveStock
# library(PSLM2015) # data("Housing") # library(dplyr) # AvgRooms <- Housing %>% # group_by(Province, Region) %>% # summarise(AvgRooms = mean(S3aq04, na.rm = TRUE)) # # library(ggplot2) # ggplot(data = AvgRooms , mapping = aes(x = Province, y = AvgRooms)) + # geom_col() + # facet_grid(. ~ Region) # # # Merging two data files # # data("Employment") # data("Housing") # HeadHH <- HHRoster %>% filter(s1aq02 == "Head") # EmpHous <- HeadHH %>% left_join(Housing, by = c("hhcode")) # str(EmpHous)