library(ggplot2)

paf1 <- read.csv("C:/rdata/perte.csv", header=TRUE, dec=",", sep=";", fileEncoding="utf-8")
paf1$Perte <- as.numeric(paf1$Perte)

pak02 <- ggplot(data = paf1, aes(x = Perte, y = Depth)) +
  geom_path(data = paf1, linewidth = 0.8, color='darkblue') +
  scale_y_reverse(breaks = seq(0, 160, by = 10)) +
  labs(title = "Matière organique par profondeur",
       x = "Matière organique (%)",
       y = "Profondeur (cm)")
  #guides(color = guide_legend(title = "Sampling site"))+
  #theme(legend.position = c(0.85, 0.2),
        #panel.grid.minor = element_blank())

pak02