ggplot2: x轴记号之间的条形图

Question

我需要可视化的数据包含4个车站之间的火车上的乘客负载。数据以有序的方式提供，即。列车在A站和V站之间有432名乘客，在V站和B站之间有543名乘客，依此类推。在编码示例中，我用ggplot2绘制了数据。

library(tidyverse)

df <- tribble(~Station, ~Passengers,
              "A", 432,
              "V", 543,
              "B", 435,
              "Q", 0)

df$Station <- factor(df$Station, levels=unique(df$Station))

ggplot(data = df, aes(x = Station, y = Passengers)) + 
  geom_bar(stat = "identity")

​

​

问题:我想在条之间定位x轴记号和桩号名称。我们的目标是将横杆向右移动50%。

Answer 1

我们可以使用position_nudge来调整条：

ggplot(data = df, aes(x = Station, y = Passengers)) + 
  geom_bar(stat = "identity", position = position_nudge(x = 0.5))

​

​