Timing

dl %>% mutate(percent=excess/value) ->dl

dl %>% group_by(CountryCode) %>% filter(max(percent)>0.3) %>% ggplot(aes(x=date,y=value,col=CountryCode)) +geom_line() +facet_wrap(~CountryCode,scales="free_y") +geom_line(aes(y=trend),colour="black")  

dl %>%dplyr::select(date,CountryCode,percent) %>% pivot_wider(names_from=CountryCode, values_from=percent) ->dd
dygraph(xts(dd[,-1],order.by=dd$date)) %>% dygraphs::dyLegend(show="never")