Description Usage Format Author(s) References See Also Examples
Education data from Pakistan Social and Living Standards Measurement 2015-16.
1 |
A data.table and data.frame with 141828 observations of 22 variables.
hhcodeHousehold 10 digits code.
ProvinceProvince of Pakistan
RegionRegion of Pakistan (Rural/Urban)
PSUprimary sampling unit 8 digits code
idcIdentity code of household member
s2ac01Can read with understanding
s2ac02Can Write with understanding
s2ac03Can solve arithmatic questions
s2ac04Attended any educational institution
s2ac05Highest level of education passed
s2ac06Currently attending educational institution
s2ac07Currently studying class
s2ac08Type of currently attending institution
s2ac9aLast year expenditure on school Fees/Admission/Registration/Funds/Donations?
s2ac9bLast year expenditure on school Uniform?
s2ac9cLast year expenditure on school Books/stationery items?
s2ac9dLast year expenditure on school Examination Fee?
s2ac9eLast year expenditure on Private Tuition?
s2ac9fLast year expenditure on school transportation?
s2ac9gLast year expenditure on school hostel expenses?
s2ac9hLast year expenditure on school other expenses?
s2ac9iTotal expenditure on schooling
Muhammad Yaseen (myaseen208@gmail.com)
Muhammad Arfan Dilber (pbsfsd041@gmail.com)
Pakistan Bureau of Statistics, Micro data (http://www.pbs.gov.pk/content/microdata).
Agriculture
, Employment
, Expenditure
, HHRoster
, Housing
, ICT
, LiveStock
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | # library(PSLM2015)
# library(dplyr)
# data("Education")
# TotalP <- Education %>% group_by(Province, Region) %>%
# summarise(TotalPersons = n())
#
# literacy <- Education %>% filter(s2ac01 == "yes" & s2ac02 == "yes" & s2ac03 == "yes")
# literateP <- literacy %>%
# group_by(Province, Region) %>%
# summarise(literatePersons = n())
# literacyR <- TotalP %>% left_join(literateP, by = c("Province", "Region"))
# literacyRate <- mutate(literacyR, Rate = literatePersons/TotalPersons*100)
# library(ggplot2)
# ggplot(data = literacyRate, mapping = aes(x = Province, y = Rate)) +
# geom_col() +
# facet_grid(. ~ Region)
#
# # Merging two data files
#
# data("Employment")
# data("Education")
# income <- Employment %>% rowwise() %>%
# mutate(TotalIncome = sum((s1bq08*s1bq09),s1bq10,s1bq15,s1bq17,s1bq19,s1bq21, na.rm = TRUE))
# ab <- income %>% select(hhcode, idc, TotalIncome)
# EduEmp <- Education %>% left_join(ab, by = c("hhcode", "idc"))
# str(EduEmp)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.