starbucks
Starbucks: Gender Stats
How much more often do women visit Starbucks from men?
Surprisingly more men went to Starbucks monthly than woman. Men also went to Starbucks daily, where as 0 women reported going daily.
Brooke Graham
How much more often do women visit Starbucks from men?
Surprisingly more men went to Starbucks monthly than woman. Men also went to Starbucks daily, where as 0 women reported going daily.
---
title: "starbucks"
author: "Brooke Graham" # Generates an automatic table of contents.
format:
html:
html-math-method: katex # Defines the pretty math renderer.
code-tools: TRUE # Allow the code tools option showing in the output.
self-contained: TRUE # Embeds all components into a single HTML file.
execute:
warning: FALSE # Prevent all warnings from displaying in the output.
message: FALSE # Prevent all messages from displaying in the output.
echo: FALSE
---
```{r}
#| label: setup
#| include: FALSE
# The setup label is special. When you are in visual/notebook mode, the chunk
# named setup is run automatically before any other code is run.
# The setup chunk is often where packages are described and loaded for an
# analyst and the include option is almost always set to FALSE.
library(readr)
StarbucksConsumerData <- read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/whiteh5_xavier_edu/EUhm45cz1OFGtmEUxJRMPGgBlrvcllTV2QXzhm15gswM8Q?download=1")
library(tidyverse) # All the tidy things
library(lubridate) # Working with dates
library(knitr) # Better looking table output for HTML
library(gtsummary) # Better looking regression output for HTML
```
## Starbucks: Gender Stats
How much more often do women visit Starbucks from men?
Surprisingly more men went to Starbucks monthly than woman. Men also went to Starbucks daily, where as 0 women reported going daily.
```{r}
StarbucksConsumerData %>%
ggplot(aes(x= `5. How often do you visit Starbucks?`)) +
geom_bar() +
labs(title = "Visits") +
facet_wrap(~ `1. Your Gender`)
```