在ggplot2中绘制顶部反转的y轴和x轴

Question

我正试图在顶部反转y轴和x轴获得ggplot2图。我使用scale_y_reverse()来反转y轴，但无法弄清楚如何将x轴放在顶部而不是底部。

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)

Answer 1

如果您还不想切换到ggvis，ggdraw(switch_axis_position(p1 , axis = 'x'))包的cowplot功能可以正常运行。

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

Answer 2

你需要ggvis来做到这一点：

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

Answer 3

现在使用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)