我可以更改 ggplot2 中 x 轴与 y 轴相交的位置吗？

Question

我将一些索引数据绘制为条形图。我想通过强制 x 轴在 100 处交叉来强调数字的“高于索引”和“低于索引”（这样 80 的值将显示为 -20 条。）

这是一个更长的过程的一部分，因此很难有效地共享数据。不过，这里有一些说明问题的代码（以及我的解决方案的开始）：

df <- data.frame(c("a","b","c"),c(118,80,65))
names(df) <- c("label","index")

my.plot <- ggplot(df,aes(label,index))
my.plot + geom_bar()

df$adjusted <- as.numeric(lapply(df$index,function(x) x-100))

my.plot2 <- ggplot(df,aes(label,adjusted))
my.plot2 + geom_bar()

当然，我可以将我的指数计算更改为：(value.new/value.old)*100-100然后适当地为图表命名（类似于“xxx 相对于指数”），但这似乎很笨拙。

那么，我一直在测试的方法（运行上面的简单计算，然后重新标记 y 轴）是否真的是最好的解决方案？

毫无疑问，有人会告诉我，这种轴操纵是不受欢迎的。如果是这种情况，请他们指出我的解释方向吗？至少那时我会学到一些东西。

Answer 1

这并不能直接回答您的问题，但与其错过 x 轴，为什么不使单个网格线更粗一些？例如，

dd = data.frame(x = 1:10, y = runif(10))
g = ggplot(dd, aes(x, y)) + geom_point()
g + geom_hline(yintercept=0.2, colour="white", lwd=3)

或者按照保罗的建议，用一条黑线和一些文字：

    g + geom_hline(yintercept=0.2, colour="black", lwd=3) + 
        annotate("text", x = 2, y = 0.22, label = "Reference")