当X轴变量为字符型时，如何调整ggplot的X轴刻度范围？

核心问题在于你把时间拆成了字符型的Hour变量，离散字符型的刻度无法用连续型的xlim()调整，转数值又会丢失时间的格式逻辑。最稳妥的方案是把时间转换为POSIXct时间日期类型，再用专门的时间刻度函数来控制范围。

方法一：保留原始时间列并转换类型 #

直接基于原始的Date列转换为时间类型，提取日期用于分面，时间用于X轴：

library('tidyverse')

df <- data.frame('Time' = c(10,20,5,25,10), 
                 'Date' = c("2023-01-01 11:43:02",
                            "2023-01-01 12:05:07",
                            "2023-01-01 14:43:02",
                            "2023-01-02 11:43:02",
                            "2023-01-02 13:43:02"))

# 转换为POSIXct时间类型，提取纯日期用于分面
df <- df %>% 
  mutate(datetime = as.POSIXct(Date),
         date_only = as.Date(datetime))

# 绘图并设置X轴时间范围
df %>% 
  ggplot(aes(x = datetime, y = Time)) +
  geom_col() +
  facet_wrap(~date_only, scales = "fixed") + # scales="fixed"让所有分面X轴范围一致
  scale_x_datetime(
    # 指定X轴的时间范围，格式要和POSIXct匹配
    limits = as.POSIXct(c("2023-01-01 10:00:00", "2023-01-01 15:00:00")),
    # 自定义刻度显示格式，比如只展示小时和分钟
    date_labels = "%H:%M",
    # 可以调整刻度间隔，比如每1小时显示一个刻度
    date_breaks = "1 hour"
  )

方法二：若已拆分Hour，合并后转换类型 #

如果你已经拆分了Date和Hour，可以合并后再转时间类型：

# 基于你已拆分的df继续处理
df <- df %>% 
  mutate(datetime = as.POSIXct(paste(Date, Hour)),
         date_only = as.Date(datetime))

# 绘图代码和方法一一致
df %>% 
  ggplot(aes(x = datetime, y = Time)) +
  geom_col() +
  facet_wrap(~date_only, scales = "fixed") +
  scale_x_datetime(
    limits = as.POSIXct(c("2023-01-01 10:00:00", "2023-01-01 15:00:00")),
    date_labels = "%H:%M"
  )

补充：坚持用字符型Hour的临时方案 #

如果一定要用字符型的Hour，只能手动指定现有存在的刻度值，但无法扩展到不存在的时间点：

df %>% 
  ggplot() +
  geom_col(aes(x = Hour, y = Time)) +
  facet_wrap(~Date) +
  scale_x_discrete(limits = c("11:43:02", "12:05:07", "14:43:02")) # 只显示指定的字符刻度

这种方法局限性很大，不推荐用于需要调整范围的场景，优先用时间日期类型的方案。

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