如何用ggplot按时间顺序连接散点图中的数据点？

问题背景 #

我有一个包含三个变量的数据集：

• Measurement：取值为1-6的测量值（字符串类型）
• Date：日期
• Time：测量时间

想要绘制测量值随时间的变化趋势，要求按时间顺序连接数据点，但尝试两种方法都失败了，线条反而把相同Measurement值的点互相连接：

1. 转换Date格式并排序后用geom_line+geom_path

DF$Date <- as.Date(DF$Date)
DF <- DF[order(DF$Date),]

ggplot(DF, aes(x = Date, y = Measurement)) +
     geom_line(linewidth=1, colour="green") +
     geom_path()

2. 创建DateTime变量后用geom_line

DF$DateTime <- as.POSIXct(paste(DF$Date, DF$Time, format="%y/%m/%d %H:%M:%S"))

ggplot(DF, aes(x = DateTime, y = Measurement)) +
     geom_line(linewidth=1, colour="green") 

数据集结构：

structure(list(Measurement = c("1", "1", ...), Date = structure(c(19333, ...), class = "Date"), Time = structure(c(43810, ...), class = c("hms", "difftime"), units = "secs"), DateTime = structure(c(1670415010, ...), class = c("POSIXct", "POSIXt"), tzone = "")), row.names = c(NA, -271L), class = c("tbl_df", "tbl", "data.frame"))

问题原因 #

1. Measurement是字符串类型：ggplot的geom_line默认会将离散型变量（如字符串）作为分组依据，导致相同Measurement值的点被连接，而非按x轴时间顺序。
2. 排序不彻底：第一种方法仅按Date排序，但同一天内的Time未参与排序，数据顺序仍混乱。
3. DateTime转换错误：第二种方法中format参数放错位置，as.POSIXct的format需要单独指定，而非放在paste函数里，可能导致DateTime解析错误。

解决方案 #

步骤1：数据预处理 #

• 将Measurement转换为数值类型，避免被当作分组变量
• 正确创建DateTime并按其排序

# 转换Measurement为数值
DF$Measurement <- as.numeric(DF$Measurement)

# 正确创建DateTime：format参数属于as.POSIXct
DF$DateTime <- as.POSIXct(paste(DF$Date, DF$Time), format = "%Y-%m-%d %H:%M:%S")

# 严格按DateTime排序数据集
DF <- DF[order(DF$DateTime),]

步骤2：绘制趋势线 #

使用geom_line时，若x是连续的DateTime、y是数值，默认会按x轴顺序连线；也可明确指定group=1强制按整个数据集的顺序连接：

library(ggplot2)

ggplot(DF, aes(x = DateTime, y = Measurement, group = 1)) +
  geom_line(linewidth = 1, colour = "green") +
  geom_point(size = 2) # 可选：添加数据点更清晰

补充说明 #

• 如果你的Date格式不是%Y-%m-%d，需要调整as.POSIXct中的format参数（比如原数据是%y/%m/%d就改成对应格式）
• geom_path和geom_line的区别：geom_line按x轴顺序连线，geom_path按数据集中的行顺序连线，所以确保数据集排序正确是关键

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