Do not display the curve when the values ​do not exist

Question

Just a quick question regarding this plot. The orange curve is dependent on the orange columns so I would like that when they are not present the line disappears

    t %>%
  filter(Domaine %in% "Spadi") %>%
  ggplot() +
  geom_col(aes(x = Semaine, y = perc/6.67,fill=forcats::fct_rev(Densité)),size = 1.5,alpha=.7) +
  theme_minimal() +
  geom_line(aes(x = Semaine,y=PJFD,colour=forcats::fct_rev(Densité)),size=1) +
  scale_fill_manual(name='Légende',values = c("orange","lightgreen","darkgreen"),labels=c("Densité +","Densité -","Sain")) +
  scale_colour_manual(name = 'Légende',values = c("darkorange","transparent","transparent"),labels=c("Densité +","Densité -","Sain")) +
  facet_wrap(~Secteur,ncol=1) +
  scale_x_continuous(breaks=seq(1,52,1),limits = c(0,52)) +
  scale_y_continuous(breaks=seq(0,15,2),limits=c(0,15),sec.axis = sec_axis(~.*6.67, name = "Pourcentage moyen du niveau de densité sur les bananiers du secteur"))+
  labs(y="Plus jeune rang de feuille moyen présentant des densités +",title = "Domaine de Spadi") +
  theme (axis.title.y = element_text(size=rel(1.2)))+
  theme(strip.text = element_text(face="bold", size=14),
        strip.background = element_rect(fill="lightblue", colour="black",size=1)) +
  theme(plot.title=element_text(hjust=0.5,size=18)) +
  theme (axis.title.y = element_text(size=rel(1.2)))+
  theme (axis.title.y = element_text(size=rel(1.2))) +
  theme(strip.text = element_text(face="bold", size=14),
        strip.background = element_rect(fill="lightblue", colour="black",size=1)) +
  theme(plot.title=element_text(hjust=0.5,size=18)) +
  theme (axis.title.y = element_text(size=rel(2)),plot.title = element_text(size=rel(3.1))) +
  theme (axis.title.x = element_text(size=rel(2))) +
  theme(strip.text = element_text(face="bold", size=16),
        strip.background = element_rect(fill="lightblue", colour="black",size=1)) +
  theme(legend.title = element_text(size = 20),legend.text = element_text(size = 18)) +
  theme(axis.text.x = element_text(face="bold",
                                   size=16),
        axis.text.y = element_text(face="bold", 
                                   size=16))