Bonjour, En conservant les NA dans le data.frame de départ ? tab2 <- expand.grid(week = 5:40, Marchés = unique(tab$Marchés)) tab2 <- cbind(tab2, tab[match(with(tab2, paste(week, Marchés, sep="_")), with(tab, paste(week, Marchés, sep="_"))),3:4]) ggplot(tab2, aes(x=week, y=nbVendT...