Plots new cases and new deaths on same graph

covid-plot.r

library(tidyverse)
library(grid)
all = read.csv("owid-covid-data.csv", header = TRUE)
irl <- all %>% 
  filter(iso_code == "IRL") %>% 
  select(date,new_cases,new_deaths) %>% 
  mutate(date=as.Date(date, format="%Y-%m-%d"))

p1 <- ggplot(irl, aes(x=date,y=new_cases)) + 
  scale_x_date() + 
  ylab("New Cases") +
  scale_y_continuous(expand = c(0, 0)) +
  geom_col(colour=rgb(.8,.8,0),fill=rgb(.7,.7,0)) + theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

p2 <- ggplot(irl, aes(x=date,y=new_deaths)) + 
  xlab("Date") +
  scale_x_date() + 
  ylab("New Deaths") +
  scale_y_continuous(trans = "reverse", expand = c(0, 0)) +
  geom_col(colour=rgb(.0,.8,.8),fill=rgb(0,.7,.7))


g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)
g <- rbind(g1, g2, size="first")
grid.newpage()
grid.draw(g)