[R 실습] 02-5 연령대 및 성별 월급 차이

성별 월급 차이는 연령대별로 다를까?

#### 연령대 및 성별 월급 차이 - "성별 월급 차이는 연령대별로 다를까?"

### 연령대 및 성별 월급 차이 분석하기

## 연령대 및 성별 월급 평균표 만들기

sex_income <- welfare %>%
  filter(!is.na(income)) %>%
  group_by(ageg, sex) %>%
  summarise(mean_income = mean(income))

sex_income


## 그래프 만들기

ggplot(data = sex_income, aes(x = ageg, y = mean_income, fill = sex)) +
  geom_col() +
  scale_x_discrete(limits = c("young", "middle", "old"))

ggplot(data = sex_income, aes(x = ageg, y = mean_income, fill = sex)) +
  geom_col(position = "dodge") +
  scale_x_discrete(limits = c("young", "middle", "old"))


### 나이 및 성별 월급 차이 분석하기

## 성별 연령별 월급 평균표 만들기

sex_age <- welfare %>%
  filter(!is.na(income)) %>%
  group_by(age, sex) %>%
  summarise(mean_income = mean(income))

head(sex_age)


## 그래프 만들기

ggplot(data = sex_age, aes(x = age, y = mean_income, col = sex)) + geom_line()