week5_Lab_OMarijan

library(dplyr)

## 
## Attaching package: '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(completejourney)

## Welcome to the completejourney package! Learn more about these data
## sets at http://bit.ly/completejourney.

Campaign_demographics<- demographics%>%
  full_join(campaigns)

## Joining with `by = join_by(household_id)`

campaigns_by_income<- Campaign_demographics%>%
  full_join(campaign_descriptions)%>%
  na.omit()

## Joining with `by = join_by(campaign_id)`

ggplot(campaigns_by_income,aes(x=income,fill=campaign_type))+
  geom_bar()+
  facet_wrap(~campaign_type)+
  theme(axis.text.x = element_text(angle = 55, hjust = 1))+
  ggtitle("campaign type by income")

ggplot(campaigns_by_income,aes(x=age,fill=campaign_type))+
  geom_bar()+
  facet_wrap(~campaign_type)+
  theme(axis.text.x = element_text(angle = 55, hjust = 1))+
  ggtitle("campaign type by age group")

ggplot(campaigns_by_income,aes(x=household_size,fill=campaign_type))+
  geom_bar()+
  facet_wrap(~campaign_type)+
  theme(axis.text.x = element_text(angle = 55, hjust = 1))+
  ggtitle("campaign type by household size")