[R] Barplot

setwd("C:/Rdata")
getwd()
#Ctrl + l => 콘솔창 정리
install.packages("foreign")
install.packages("readxl")
library(foreign)
library(dplyr)
library(ggplot2)
library(readxl)

raw_welfare=read.spss(file = "Koweps_hpc10_2015_beta1.sav",
                      to.data.frame = T)#데이타 프레임 트루
#원본 데이터는 그대로 두고 가공하기 위한 사본을 만듦
welfare=raw_welfare
head(welfare)
tail(welfare)
View(welfare) #()에 해당되는 전체 데이터 보기
str(welfare)
summarise(welfare)

#이름 재정의하기
welfare = rename(welfare,
                  gender = h10_g3,            # 성별
                  birth = h10_g4,          # 태어난 연도
                  marriage = h10_g10,      # 혼인 여부
                  religion = h10_g11,      # 종교유무
                  income = p1002_8aq1,     # 월급
                  code_job = h10_eco9,     # 직종 코드
                  code_region = h10_reg7)  # 지역 코드
head(welfare)
names(welfare)

#주제 : 성별에 따른 급여차이를 분석
class(welfare$gender)
table(welfare$gender)
welfare$gender=ifelse(welfare$gender==9,NA,welfare$gender)
table(is.na(welfare$gender))
welfare$gender=ifelse(welfare$gender==1,"male","female")
kk=table(welfare$gender)
qplot(welfare$gender) #ggplot2 안에 있는 임시적그래프 확인 방법

#barplot으로 확인 하기
barplot(kk,col=c("red","blue")) #f는 빨강, m은 파랑으로 표시
barplot(kk,col=c("red","blue"),ylim=c(0,10000)) #왼쪽에 기준 표시
tt=barplot(kk,col=c("red","blue"),ylim=c(0,10000))
text(tt,kk,label=paste0(kk,"명"),pos=3,col='red',cex=2) #f, m 수치 표시