trouble-shooting non-finite values (stat_smooth)

Question

I\'m able to plot two time series for cost and income by date

library(dplyr)
library(tidyr)

df <- a %>% 
  select(date, cost, inc) %>% 
  gather(key = &