如何用日期格式时间点补间data.frame？

Question

我想将tweenr与date的{​​{1}}格式变量一起使用。

但是，timepoints抛出了一个我无法解密的错误：

tweenr::tween_elements

我使用了错误的> Error in `/.difftime`(diff(timerange), nframes) : second argument of / cannot be a "difftime" object 函数吗？这很可能是某些预期的行为，但是我无法理解。

可复制示例：

tweenr

Answer 1

使用tweenR中的日期有时会很棘手。

如果将日期指定为整数，则效果很好：

> head(data_tween)
        time         x         y .frame .group
1   2000.000  1.000000 20.000000      0      1
102 2000.000 20.000000  1.000000      0      2
2   2000.003  1.003005 19.996995      1      1
103 2000.003 19.996995  1.003005      1      2
3   2000.024  1.024042 19.975958      2      1
104 2000.024 19.975958  1.024042      2      2

代码

data_tween <- tween_elements(data, "time", "group", "ease", nframes = 100)

数据

data <- data.frame(
    time = rep(seq(2000, 2009), 2),
    x = c(1:10, 20:11),
    y = c(20:11, 1:10),
    group = c(rep(1, 10), rep(2, 10)),
    ease = "cubic-in-out"
)