使用ggplot2绘制计数随时间变化折线图（隐藏X轴文本）

核心问题分析 #

你的代码存在两个关键问题导致未达预期：

• 时间格式处理错误：用as.Date()会丢失时间戳里的时分秒信息，让X轴无法体现时间变化的精度；后续搭配的scale_x_date()也和实际时间类型不匹配。
• 未实现隐藏X轴文本的需求：原代码没有添加隐藏X轴文本的相关设置。

修正后的完整代码 #

# 读取数据集，注意确认分隔符是否正确（如果是空格分隔可改用sep=" "）
d <- read.table(file = 'D:\\data.txt', sep = '\t', header = TRUE)

# 正确解析带时分秒的时间戳（两种方法二选一即可）
# 方法1：用lubridate包的ymd_hms自动识别格式
library(lubridate)
d$CaptureTime <- ymd_hms(d$CaptureTime)

# 方法2：用base R的as.POSIXct指定格式
# d$CaptureTime <- as.POSIXct(d$CaptureTime, format = "%Y/%m/%d %H:%M:%S")

library(ggplot2)
library(scales)

d %>%
    ggplot(aes(CaptureTime, Count)) +
    geom_point() +
    geom_line() +
    # 匹配POSIXct类型的时间轴设置，不需要显示标签可直接省略date_labels参数
    scale_x_datetime() +
    theme_bw() +
    # 隐藏X轴文本，保留轴标题和刻度线（若要连刻度线也隐藏，添加axis.ticks.x = element_blank()）
    theme(axis.text.x = element_blank()) +
    labs(
        title = "计数随时间变化趋势",
        x = "采集时间",
        y = "计数值"
    )

关键修正点说明 #

1. 时间解析：必须用支持时分秒的POSIXct类型，ymd_hms()能自动识别格式，as.POSIXct()则需要指定匹配的格式字符串"%Y/%m/%d %H:%M:%S"，确保时间精度不丢失。
2. X轴文本隐藏：通过theme(axis.text.x = element_blank())直接隐藏X轴所有文本标签，若需要保留部分刻度标签，可结合scale_x_datetime(breaks = ...)指定要显示的刻度点。
3. 时间轴适配：改用scale_x_datetime()匹配POSIXct类型的时间数据，替换原代码中不适用的scale_x_date()。

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