r - 如何更改geom_bar中水平轴与垂直轴的交叉位置？

Question

这是我希望它的外观（用 Excel 制作）：

这是模板代码：

library(ggplot2)
data <- c(0.3,0.4,0.5,0.6,0.7,0.8)
qplot(x=1:6, y=data, geom="bar", stat="identity")

在评论者建议我在我的问题中需要更多单词后进行编辑：

我上面的代码在 y=0 处绘制 x 轴，以便所有条形都从轴上移。我希望 x 轴位于 y=0.5 并且我希望值 < 0.5 的条形下降，而值 > 0.5 的条形上升。就像我放在上面的 Excel 图中一样。

希望这是有道理的。

Answer 1

这有点繁琐，但可能：

qplot(x=factor(1:6,levels=6:1), y=data-0.5, geom="bar", stat="identity") + scale_y_continuous(breaks=seq(-0.5,0.5,0.1),labels=seq(0,1,0.1),limits=c(-0.5,0.5))