我可以使用 ggplot 分别控制 x 轴和 y 轴吗？

Question

这是来自ggplot wiki的ggplot：

baseplot <- ggplot(data.frame(x=1:10, y=10:1)) +
    geom_point(aes(x = x, y = y))
baseplot

问题

是否可以单独控制这些轴，例如只使 x 轴变黑？ axis.line.x 和 axis.line.y 似乎不在选项之列。

我尝试过的

1. wiki 演示了，例如，可以控制轴的颜色

   baseplot + opts(axis.line = theme_segment(colour = 'black', size = 2))
   

2. 使用geom_segment 可以工作，但存在线条必须与情节编号匹配的限制。

   有没有办法得到，例如baseplot 对象的最大和最小轴以及刻度？这将减少潜在的错误。 更新这个问题的答案，“不，还没有”，已覆盖previously。

   baseplot + geom_segment(aes(x = c(0,0), y = c(0,0), 
                           yend = c(0, max(y)), xend = c(max(x), 0), 
                           size = c(0.5, 0.1))) + 
              geom_segment(aes(x = 0, y = y, 
                           xend = -1, 
                           yend = y, 
                           size = 0.1))
   

Answer 1

不支持单独控制轴线。 您可以在绘制后删除或编辑线条：

> baseplot + opts(axis.line = theme_segment(colour = 'black', size = 2))
> grid.remove(gPath("axis_v", "axis.line.segments"), grep=TRUE)

> baseplot + opts(axis.line = theme_segment(colour = 'black', size = 2))
> grid.edit(gPath("axis_v", "axis.line.segments"), grep=TRUE, gp=gpar(col="red"))
> grid.edit(gPath("axis_h", "axis.line.segments"), grep=TRUE, gp=gpar(col="blue"))

更新

在 0.9.1- 中，这可能会发生如下变化：

grid.edit(gPath("axis-l", "axis.line.segments"), grep=TRUE, gp=gpar(col="red"))
grid.edit(gPath("axis-b", "axis.line.segments"), grep=TRUE, gp=gpar(col="blue"))

Answer 2

您似乎也可以通过调整主题轻松实现它：

mytheme <- theme_classic()
mytheme$axis.line.x <- mytheme$axis.line.y <- mytheme$axis.line
mytheme$axis.line.x$colour <- 'red'
ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + mytheme

Answer 3

我怀疑你的分析是正确的。

但是，还有另一种可能的解决方法：geom_hline 和 geom_vline：

baseplot + 
    geom_hline(yintercept=0, colour="red", size = 3) +
    geom_vline(xintercept=0, colour="blue", size = 2) 

同样不理想，因为线条跨越整个绘图区域，而不是仅仅框定轴，如果你知道我的意思的话。

Answer 4

这个问题指出，您可以打开两条线路，然后关闭其中一条：https://github.com/hadley/ggplot2/issues/778。我发现这个策略既简单又有效。