Я сейчас попытался сделать, как вы сказали, @ Roland , и это сработало.
Вот код:
Temperature[Temperature$Time < as.POSIXct("1899-12-31 12:00:00"), "Time"] <- Temperature[Temperature$Time < as.POSIXct("1899-12-31 12:00:00"), "Time"] + 3600 * 24
Light[Light$Time < as.POSIXct("1899-12-31 12:00:00"), "Time"] <- Light[Light$Time < as.POSIXct("1899-12-31 12:00:00"), "Time"] + 3600 * 24
p = ggplot() + geom_line(data = Temperature, aes(x = Time, y = Temperature), color = "blue") + geom_line(data = Light, aes(x = Time, y = Light), color = "red") + xlab('Time') + ylab('Temp/Light')
print(p)
А вот участок:
![The final plot](https://i.stack.imgur.com/mfkkW.jpg)