ggplot2：如何在geom_bar中的条旁边而不是条中间重新放置断线？

Question

我有下图。

您会看到x比例尺的折线（在这种情况下为离散比例）正好穿过不同的条。我希望这些断裂线形成“车道”，其中的杆非常适合。因此，我不想让我的休息时间穿过酒吧，而是让他们躺在每个酒吧的边缘。

我对scale_x_discrete函数进行了很多实验，但似乎无法弄清楚该如何实现...

Answer 1

您可以使用geom_vline创建一些伪造的网格线，同时隐藏真实的网格线。

library(tidyverse)

data <- data.frame(x = letters[1:10], y = runif(10), stringsAsFactors = FALSE)

data %>%
  ggplot(aes(x, y)) + 
  geom_bar(stat = "identity") + 
  coord_flip() + 
  geom_vline(xintercept = seq(1.5, 9.5, 1), color = "white") + 
  theme(panel.grid = element_blank())