Untitled

options(repos = c(CRAN = "https://cran.rstudio.com"))
install.packages("foreign") 

## 'C:/Users/user/AppData/Local/R/win-library/4.3'의 위치에 패키지(들)을 설치합니다.
## (왜냐하면 'lib'가 지정되지 않았기 때문입니다)

## 패키지 'foreign'를 성공적으로 압축해제하였고 MD5 sums 이 확인되었습니다

## Warning: 패키지 'foreign'의 이전설치를 삭제할 수 없습니다

## Warning in file.copy(savedcopy, lib, recursive = TRUE):
## C:\Users\user\AppData\Local\R\win-library\4.3\00LOCK\foreign\libs\x64\foreign.dll를
## C:\Users\user\AppData\Local\R\win-library\4.3\foreign\libs\x64\foreign.dll로
## 복사하는데 문제가 발생했습니다: Permission denied

## Warning: 'foreign'를 복구하였습니다

## 
## 다운로드된 바이너리 패키지들은 다음의 위치에 있습니다
##  C:\Users\user\AppData\Local\Temp\RtmpoXaVhw\downloaded_packages

library(foreign)  
library(dplyr) 

## 
## 다음의 패키지를 부착합니다: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(readxl) 
getwd()

## [1] "C:/Users/user/OneDrive/바탕 화면"

setwd("C:\\Users\\user\\OneDrive\\바탕 화면\\R")
raw_welfare <- read.spss(file = "Koweps_hpc10_2015_beta1.sav",
 to.data.frame = T)

## Warning in read.spss(file = "Koweps_hpc10_2015_beta1.sav", to.data.frame = T):
## Koweps_hpc10_2015_beta1.sav: Compression bias (0) is not the usual value of 100

welfare <- raw_welfare
welfare <- rename(welfare,
 sex = h10_g3, 
 birth = h10_g4, 
 marriage = h10_g10, 
 religion = h10_g11, 
 income = p1002_8aq1, 
 code_job = h10_eco9, 
 code_region = h10_reg7)
welfare$age <- 2015 - welfare$birth + 1
welfare <- welfare %>%
 mutate(ageg = ifelse(age < 30, "young",
 ifelse(age <= 59, "middle", "old")))
table(welfare$ageg)

## 
## middle    old  young 
##   6049   6281   4334