R
R코딩을 하다가 막혀서 질문드립니다.

맨 마지막 문단인 그래프 출력에서 에러는 없는데 빈칸으로 출력되서 질문 드립니다. 

독학인데 도와주세요 😥😥

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

View(welfare)

welfare <- rename(welfare,
                  sex = h10_g3,           # 성별   
                  birth = h10_g4,         # 태어난 연도
                  marriage = h10_g10,     # 혼인 상태
                  religon = h10_g11,      # 종교
                  income = p1002_8aq1,    # 월급
                  code_job = h10_eco9,    # 직업 코드
                  code_region = h10_reg7) # 지역 코드

list_job <- read_excel("Koweps_Codebook.xlsx", col_names = T, sheet = 2)

welfare <- left_join(welfare, list_job, id = "code_job")
job_male <- welfare %>%
  filter(!is.na(job) & sex == "male") %>%
  group_by(job) %>%
  summarise(n = n()) %>%
  arrange(desc(n)) %>%
  head(10)

job_male

job_female <- welfare %>%
  filter(!is.na(job) & sex == "female") %>%
  group_by(job) %>%
  summarise(n = n()) %>%
  arrange(desc(n)) %>%
  head(10)

job_female

ggplot(data = job_male, aes(x = reorder(job, n), y = n)) +
  geom_col() +
  coord_flip()

 

0
0
890
댓글 0