CODEWITHSUNDEEP
rggplot2
MYaseen208
MYaseen208

Reputation: 23948

Plot with reversed y-axis and x-axis on top in ggplot2

I'm trying to get ggplot2 plot with reversed y-axis and x-axis on top. I used scale_y_reverse() to get reversed y-axis but could not figured out how to put x-axis on the top rather than at bottom.

dfn <- read.table(header=T, text='
supp dose length
  OJ  0.5  13.23
  OJ  1.0  22.70
  OJ  2.0  26.06
  VC  0.5   7.98
  VC  1.0  16.77
  VC  2.0  26.14
')

library(ggplot2)
p1 <- ggplot(data=dfn, aes(x=dose, y=length, group=supp, colour=supp)) + geom_line() + geom_point()
p1 <- p1 + scale_y_reverse()
print(p1)

enter image description here

Upvotes: 5

Views: 6066

Answers (4)

ginn
ginn

Reputation: 151

You should use either scale_y_continuous () or scale_y_reverse (), but not both at the same time. So:

scale_y_reverse (limits = c(0, -0), breaks = seq (from = 0, to = -0, by = -0), expand = c(0,0), position = "right")

P.S.: substitute 0 for your values

Upvotes: 0

CephBirk
CephBirk

Reputation: 6720

Now even easier with ggplot v2.2.0:

p1 <- ggplot(data=dfn, aes(x=dose, y=length, group=supp, colour=supp)) + geom_line() + geom_point()
p1 <- p1 + scale_y_reverse() + scale_x_continuous(position = 'top')
print(p1)

Upvotes: 7

Clay
Clay

Reputation: 2734

If you don't want to switch to ggvis just yet, the ggdraw(switch_axis_position(p1 , axis = 'x')) function of the cowplot package works very well.

https://cran.r-project.org/web/packages/cowplot/vignettes/axis_position.html

Upvotes: 4

LyzandeR
LyzandeR

Reputation: 37889

You need ggvis to do that:

library(ggvis)
dfn %>% ggvis(~dose, ~length, fill= ~supp, stroke=~supp) %>% layer_lines(fillOpacity=0) %>%
  scale_numeric('y', reverse=T) %>% add_axis('x',orient='top')

enter image description here

Upvotes: 1

Related Questions