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))