如何解决geom_col绘制hms时间为x轴的柱状图无效的问题

原来的代码绘图效果不符合预期，核心原因有两点：

• hms类型本质是以总秒数为单位的连续数值坐标，geom_col在连续x轴下的默认宽度仅为0.9个坐标单位（也就是不到1秒），在跨度长达5个多小时的时间轴上，这些宽度不足1秒的柱子会被压缩成几乎不可见的细线。
• 数据里存在多组完全重合的时间坐标点（如三个15:24:07.258579的条目），连续坐标下这些条目会完全重叠，根本无法展示各自的数值。

根据不同的绘图需求，可以选择两种适配方案：

方案1：逐点独立展示（分类轴模式） #

将每个时间值转为有序分类变量，让每个数据点自动分配等宽的独立柱子，不保留真实的时间间隔信息，适合逐点对比数值的场景。

library(tidyverse)  
library(lubridate)

tribble(~time,    ~bumps,
"10:20:07.818923",     97,
"10:22:43.303376",    250,
"10:31:09.627506",    300,
"10:31:09.628242",     58,
"10:34:05.230866",    100,
"10:52:57.201534",     89,
"10:52:57.249029",     11,
"11:30:31.223439",    100,
"11:30:32.380126",    100,
"11:47:58.033180",    430,
"11:47:58.242451",     86,
"12:05:39.926110",      1,
"12:14:23.244696",     28,
"12:14:23.392286",      5,
"14:09:59.180788",   1562,
"14:22:40.992514",    170,
"15:24:07.258579",    812,
"15:24:07.258579",    749,
"15:24:07.258579",    163,
"15:44:39.228418",     71) %>% 
  mutate(
    time_raw = hms(time),
    # 按时间先后排序生成有序因子，避免分类顺序混乱
    time_fct = fct_reorder(as.character(time_raw), time_raw)
  ) %>% 
  ggplot(aes(x = time_fct, y = bumps)) +
  geom_col(fill = "#2c7fb8") +
  # 旋转x轴标签避免文字重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方案2：保留真实时间坐标（连续轴模式） #

保留时间的连续属性，让柱子的x位置完全匹配实际时间点的间隔，适合体现时间分布特征的场景。这种模式下必须手动调整柱子宽度匹配时间量纲，同时处理重合点的位置偏移：

tribble(~time,    ~bumps,
"10:20:07.818923",     97,
"10:22:43.303376",    250,
"10:31:09.627506",    300,
"10:31:09.628242",     58,
"10:34:05.230866",    100,
"10:52:57.201534",     89,
"10:52:57.249029",     11,
"11:30:31.223439",    100,
"11:30:32.380126",    100,
"11:47:58.033180",    430,
"11:47:58.242451",     86,
"12:05:39.926110",      1,
"12:14:23.244696",     28,
"12:14:23.392286",      5,
"14:09:59.180788",   1562,
"14:22:40.992514",    170,
"15:24:07.258579",    812,
"15:24:07.258579",    749,
"15:24:07.258579",    163,
"15:44:39.228418",     71) %>% 
  mutate(time = hms(time)) %>% 
  ggplot(aes(x = time, y = bumps)) +
  # 柱子宽度设为2分钟（即120秒），与x轴的秒数量纲匹配
  # 用jitter位置调整避免重合点完全堆叠
  geom_col(width = 120, fill = "#2c7fb8", position = position_jitter(width = 5))

• 连续x轴下的geom_col宽度单位和x轴坐标单位完全一致：hms类型的底层值为距离零点的总秒数，设置width=60就代表柱子宽度为1分钟，过窄的柱子在跨小时的时间轴上会几乎不可见。
• 重复时间点的处理可以根据需求选择：如果需要同时间点的柱子并排展示，可以将position参数替换为position_dodge()；如果只需要避免重叠，轻微的jitter偏移就足够。
• 分类轴模式会抹平所有时间间隔的视觉差异，即间隔10分钟的两个点和间隔5小时的两个点在轴上的横向距离完全相等，选择时需要匹配实际的绘图目的。

内容的提问来源于stack exchange，提问作者cephalopod