ggplot2 переместить ось X наверх (пересечь с перевернутой осью Y в 0)
Я хочу сделать фигуру, которая поменяла местами оси Y и X при Y = 0. Ось Y была изменена с помощью scale_y_reverse, но ось X осталась внизу.
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))
Я попробовал код изэта почта как показано ниже, но не работает.
p +
scale_x_continuous(guide = guide_axis(position = "top")) +
scale_y_continuous(guide = guide_axis(position = "right"))
Мне не нужно иметь две оси X, просто двигайтесь снизу вверх.