#DHH23 Coffee/Tea Consumption Analysis

Total cups of coffee/tea consumed during #DHH23: 637

Histogram of coffee/tea consumed by person

coffee %>%
  filter(name!="Guests") %>%
  group_by(name) %>%
  summarise(cups=sum(cups)) %>%
  count(cups) %>%
  ggplot(aes(x=cups,y=n)) +
  geom_col() +
  theme_hsci_discrete() +
  ylab("Number of people") +
  xlab("Cups of coffee consumed") +
  coord_cartesian(ylim=c(0,8)) +
  scale_y_continuous(breaks=seq(0,10,by=2)) +
  scale_x_continuous(breaks=0:25) +
  annotation_custom(grob=ggplotGrob(coffee %>%
                                      group_by(name) %>%
                                      summarise(cups=sum(cups)) %>%
    ggplot(aes(x=cups)) +
    geom_boxplot() +
    theme_hsci_discrete() +
    theme_transparent()),ymin=6,ymax=7)

Coffee/tea consumption by day

coffee %>%
  group_by(date,role) %>% summarise(cups=sum(cups),.groups="drop") %>%
  ggplot(aes(x=date,y=cups,fill=role)) +
  geom_col(position='dodge') +
  theme_hsci_discrete() +
  scale_y_continuous(breaks=seq(0,260,by=10)) +
  ylab("Cups of coffee consumed") +
  xlab("Date") +
  labs(color="Role")

Coffee/tea consumption by day by group

coffee %>%
  group_by(date,group) %>%
  summarise(cups=sum(cups),.groups="drop") %>%
  ggplot(aes(x=date,y=cups,fill=group)) +
  geom_col(position='dodge') +
  theme_hsci_discrete() +
  scale_y_continuous(breaks=seq(0,30,by=2)) +
  ylab("Cups of coffee consumed") +
  xlab("Group") +
  labs(color="Group")

Coffee/tea consumption by group and role

coffee %>%
  filter(name!="Guests") %>%
  group_by(group,name,role) %>% summarise(cups=sum(cups),.groups="drop") %>%
  ggplot(aes(x=group,y=cups,color=role)) +
  geom_boxplot() +
  theme_hsci_discrete() +
  scale_y_continuous(breaks=seq(0,30,by=2)) +
  ylab("Cups of coffee consumed") +
  xlab("Group") +
  labs(color="Role")

Annotated histogram of coffee/tea consumed by person

coffee %>%
  filter(name!="Guests") %>%
  group_by(name) %>%
  summarise(cups=sum(cups)) %>%
  count(cups) %>%
  ggplot(aes(x=cups,y=n)) +
  geom_col() +
  theme_hsci_discrete() +
  ylab("Number of people") +
  xlab("Cups of coffee consumed") +
  coord_cartesian(ylim=c(0,8)) +
  scale_y_continuous(breaks=seq(0,10,by=2)) +
  scale_x_continuous(breaks=0:25) +
  annotation_custom(grob=ggplotGrob(coffee %>%
                                      group_by(name) %>%
                                      summarise(cups=sum(cups)) %>%
    ggplot(aes(x=cups)) +
    geom_boxplot() +
    theme_hsci_discrete() +
    theme_transparent()),ymin=6,ymax=7) +
  annotate(geom = "text", x = 19, y = 2.2, label = "Eetu Mäkelä", color = "red",
             angle = 90) +
  annotate(geom = "text", x = 22, y = 2.4, label = "Michele Stefani", color = "red",
             angle = 90) +
  annotate(geom = "text", x = 23, y = 3.6, label = "Efthymios Damianos Kokordelis", color = "red",
             angle = 90)