规范化R中数据集之间的时间数据

我有两个数据集，我想覆盖在一个绘图上，但是数据是在不同的时间采集的，所以我的数据没有覆盖，两个数据集相隔30分钟。我想让这两张图相互重叠，随时间的相对演变很重要，但不是数据采集的绝对时间，这就是现在的图

我该怎么做？下面是我的数据帧是如何构建的

Time                  Raw_Touchpad0_Rx1_Tx2
2020-11-03 14:50:00   2702
2020-11-03 14:50:01   2704

这是我的密码

X3500um_15_30_45_tx2rx1 <- data.frame(Time = c(2020-11-03 14:50:00, 2020-11-03 14:50:01), Raw_Touchpad0_Rx1_Tx2 = c(2702, 2704))

X15_30_45_rx2tx2 <- data.frame(Time = c(2020-11-03 15:20:00, 2020-11-03 15:20:01), Raw_Touchpad0_Rx1_Tx2 = c(2782, 27804))
 
ggplot(X3500um_15_30_45_tx2rx1, aes(as.numeric(Time), Raw_Touchpad0_Rx1_Tx2)) +
  geom_line(aes(colour = Raw_Touchpad0_Rx1_Tx2)) +   
  geom_line(data = X15_30_45_rx2tx2, aes(colour = Raw_Touchpad0_Rx1_Tx2))

---

X3500um_15_30_45_tx2rx1将两行设置为0秒开始的可能解决方案是（例如，一个data.frame上，但以相同方式适用于第二个data.frame）：

#您的一个test data.frames（请注意，我包括了它）
X3500微米15微米30微米45微米tx2rx1%
dplyr:：mutate（Time=lubridate:：as_datetime（Time））%>%
dplyr:：mutate（DIF=Time-min（Time））
我会减去每个data.frame（又名行）的开始时间，以获得所需单位的差分（分钟或秒…）和plot@DPH具体怎么做？我不确定如何用一种简单的方式操作整个色谱柱：S
# one of your test data.frames (note that I included ")
X3500um_15_30_45_tx2rx1 <- data.frame(Time = c("2020-11-03 14:50:00", "2020-11-03 14:50:01"), Raw_Touchpad0_Rx1_Tx2 = c(2702, 2704))

library(dplyr)
library(lubridate)

# The calculation to get a new column of the difference from minimum timestamp
X3500um_15_30_45_tx2rx1 %>% 
  dplyr::mutate(Time = lubridate::as_datetime(Time)) %>% 
  dplyr::mutate(DIF = Time - min(Time))