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

ggplot2：x 轴刻度之间的条形图

ggplot2: Bars between x-axis ticks

r

ggplot2

axes