Dear Trivas,
I try like you said, but it didn't work...
Oxphos_proteins <- Oxphos_proteinas %>% pivot_longer(cols=c("COX6C", "COX7A2", "COX7C"),
names_to='Genes',
values_to='z_score')
ggplot(Oxphos_proteins, aes(x = day, y = z_score)) +
geom_line(aes(color = severity), size = 1, na.rm=TRUE)