scale_y_continuous( sec.axis = sec_axis(~ . /100, name = "Dia")

ggplot(tab.OpTT)+
 geom_area(aes(x = Dia, y = Criados, group = 1), fill = "darkviolet")+
 geom_area(aes(x = Dia, y = Resolvidos, group = 1), fill = "violet", alpha =
 0.7)+
 geom_area(aes(x = Dia, y = Em.Curso, group = 1), fill = "lightblue", alpha
 = 0.8)+
 geom_line( data = tab.OpTT  %>% filter(y=="Dias"), aes(x = Dia, y =
 TMR*100, group = 1), color = "darkblue", linetype=7)+
 geom_line( data = tab.OpTT  %>% filter(y=="Dias"), aes(x = Dia, y =
 AME*100, group = 1), color = "pink", linetype = 5)+
 labs(x = "Período de 05/02 á 18/02", y = "Chamadas", title = "teste 5")+
 scale_x_date(breaks=seq(min(tab.OpTT$Dia), max(tab.OpTT$Dia), by="1 day"),
 date_labels="%d/%b", minor_breaks=seq(min(tab.OpTT$Dia), max(tab.OpTT$Dia),
 by="1 month"))+
 scale_y_continuous( sec.axis = sec_axis(~. /100, name = "Dia")+
 theme(axis.text.x = element_text(angle = 90, hjust = 1))+