Блог

Данные, которые мне нужно визуализировать, содержат пассажирские грузы в поезде между 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% вправо.

Мы можем использовать position_nudge для настройки баров:

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