In youngwoos/koweps: https://www.koweps.re.kr:442/data/data/list.do

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

koweps

한국복지패널 조사(Korea Welfare Panel Study) 데이터 패키지

• 한국복지패널 2017년 12차 머지 데이터(가구용, 가구원용, 장애인설문용 데이터 통합본)입니다.
• 데이터에 대한 설명은 아래 자료를 참고하세요.
  • 코딩북 : https://www.koweps.re.kr:442/data/book/list.do
  • 유저가이드 : https://www.koweps.re.kr:442/data/guide/list.do

Installation

# install.packages("remotes")
remotes::install_github("youngwoos/koweps")

Example

library(koweps)
str(welfare, list.len = 20)

library(dplyr)
welfare %>%
  select(1:10)

# 연령 및 성별 인구 밀도
welfare <- welfare %>%
  mutate(sex = ifelse(h12_g3 == 1, "Male", "Female"),
         age = 2017 - h12_g4)

library(ggplot2)
ggplot(welfare, aes(x = age, fill = sex)) + 
  geom_density(alpha = 0.3)

youngwoos/koweps documentation built on May 23, 2019, 7:20 a.m.