dft %>%
ggplot(., aes(age, n, fill = gend)) +
geom_col(position = "dodge") +
facet_wrap(.~friendsgiving, nrow = 1) +
scale_fill_manual(values = thanksgiving_highlight_palette,
name = "Gender",
breaks = c("Female", "", "", "Male")) +
theme_minimal() +
scale_x_discrete() +
labs(title = "Less People Celebrate Friendsgiving As They Get Older",
subtitle = "Women in the <b style='color:red'>60+ age</b> range have the <b style='color:red'>highest 'no'</b> count",
tags = "Women in the <b style='color:orange'>30-44 age</b> range have the <b style='color:orange'>highest 'yes'</b> count",
x = "Age of Respondents",
y = "# of Respondents Celebrating") +
theme(plot.title = element_text(family = "serif",
size = 16,
face = "bold",
hjust = 1),
plot.subtitle = element_text(family = "serif",
size = 11,
face = "bold.italic",
hjust = -0.25,
vjust = 2),
axis.title.x = element_text(family = "serif", size = 11),
axis.text = element_text(family = "serif", size = 11),
axis.title.y = element_text(family = "serif", size = 11),
legend.text = element_text(family = "serif", size = 11),
legend.title = element_text(family = "serif", size = 12),
plot.tag.position = c(.31,.891),
plot.tag = element_text(family = "serif",
size = 11,
face = "bold.italic"),
plot.margin = margin(.2,1,0.2,1, "cm"),
strip.text.x = element_text(size = 13, vjust = -1)) +
theme(plot.subtitle = element_markdown(lineheight = 10),
plot.tag = element_markdown(lineheight = 2))
