更改 ggplot2 中 X 轴与 Y 轴相交的位置

Question

我已经对我的数据进行了日志转换，并计划在 ggplot2 中将其绘制为条形图。 数据如下所示：

我想弄清楚如何在-4处更改X轴沿y轴的位置...我可以在excel中执行此操作，但是我想在ggplot2中执行此操作。 图表如下所示：

有谁知道如何做到这一点？

Answer 1

您修改了示例中图表之间的数据。 虽然geom_bar()或它的新表亲geom_col()要求y为 0（这是正确的，而且你真的不应该做你正在做的事情），你可以用geom_segment()做类似的事情：

library(ggplot2) # devtools::install_github("hadley/ggplot2")

# your original data
df <- data.frame(x=1:4, y=c(6, 4, -2, -3))
gg <- ggplot(df, aes(x, y))
gg <- gg + geom_col(width=0.5)
gg <- gg + theme_bw()
gg

# your modified data
df <- data.frame(x=1:4, y=c(10, 8, 2, 1))
gg <- ggplot(df, aes(x=x, xend=x, y=-4, yend=y-4))
gg <- gg + geom_segment(size=10)
gg <- gg + theme_bw()
gg

Answer 2

您可以将 y 值转换为以您希望创建的新轴为中心。 然后在 scale_y_continuous() 你可以指定breaks =和labels=来重命名y轴的值（你转换）

在下面的例子中。 我通过第一个 mutate() 我的 y 值将 y 值居中在 0.8 左右。 然后我绘制 geom_col() 并使用代表未转换 y 值的标签修改 scale_y_continuous .... 瞧 ;)

`df %>% 
  mutate(yvalue = yvalue - .8) %>% 
  ggplot(aes(x = FACTOR, y = yvalue)
  geom_col(position = "dodge", color = "black")+
  scale_y_continuous(limits = c(-.2,.4),
                     breaks = seq(-.2,.4,.1),
                     labels = seq(.6,1.2,.1))`