R：使用带有“splinefun”和ggplot2“stat_function”的时间序列数据

Question

我有时间序列数据，每个时间都有一个观察结果。我通过 R 的splinefun 运行它来为观察创建一个样条函数。我想使用stat_function 在ggplot2 中绘制这个样条函数。我希望我的绘图将日期/时间作为 X 轴，而不是按行索引的 X 轴。可以说我已经尝试了很多事情，从编辑 splinefun 的结果（尝试使其与 as.POSIXct 一起使用），到在 ggplot 命令中加入不同的美学。

如何获取 X 轴上的日期/时间？

这是我目前的情节：

这是一个代表：

library(ggplot2)

DateTime <- seq.POSIXt(from = as.POSIXct('2020-01-10'),
                       to = as.POSIXct('2020-01-12'),
                       by = '1 hour')
set.seed(1)
y <- runif(length(DateTime), min = 0.5) * cos(as.numeric(DateTime))

df <- data.frame(DateTime = DateTime, 
                 x = seq(1:length(DateTime)),
                 y = y)

myspline <- splinefun(df$x, df$y)

ggplot(mapping = aes(x=1:nrow(df))) +
    stat_function(fun = myspline, size = 1, args = list(deriv = 0))

Answer 1

splinefun 函数对我来说似乎适用于 POSIXct 值

set.seed(1)

df <- transform(data.frame(DateTime = seq.POSIXt(from = as.POSIXct('2020-01-10'),
                                       to = as.POSIXct('2020-01-12'),
                                       by = '1 hour')),
  y=runif(length(DateTime), min = 0.5) * cos(as.numeric(DateTime)))


library(ggplot2)
myspline <- splinefun(df$DateTime, df$y)

ggplot(df, mapping = aes(x=DateTime)) +
  stat_function(fun = myspline, size = 1, args = list(deriv = 0))

使用 R 版本 3.6.2 测试