Start x-axis and y-axis at 0

d %>% ggplot(aes(x = x, y=y) + geom_line() + expand_limits(y = 0, x = 0)