Chcę utworzyć figurę, która ma odwróconą oś yi oś x na y = 0. Oś y została odwrócona za pomocą scale_y_reverse, ale oś x pozostała na dole.

p <- ggplot(df, aes(x= conc, y=depth, group=factor(stn), color=factor(stn)))+
geom_point(shape=1)+
geom_path(alpha=0.5)+
scale_y_reverse(limits=(c(20,0)), expand=c(0,0))+   
scale_x_continuous(expand=c(0,0))

Próbowałem kodu zten post jak poniżej, ale nie działa.

p + 
scale_x_continuous(guide = guide_axis(position = "top")) + 
scale_y_continuous(guide = guide_axis(position = "right"))

Nie muszę mieć dwóch osi X, po prostu po prostu przechodź od dołu do góry.