agganimate中的frame_along给出错误的整数显示

Question

我已经能够创建推文树状图的动画。日期采用整数形式，如下所示。 20190326 20190327 20190328 20190329 20190330 20190331 20190401 20190402 20190403 20190404 20190405 20190406 20190407 20190408 20190409 20190410。

每个日期我都能获得16转换的gif，但是最上方使用frame_along(date)显示的日期却显示了错误的日期。

我上传了gif图片，如下所示。

执行这些操作的代码如下：

q <- ggplot(t7b5, aes(area = V1, fill = text, label = text)) + 
  geom_treemap() + 
  geom_treemap_text(place = "centre",
                    grow = T,
                    reflow = T,
                    colour = "dark blue",
                    min.size = 0) +
  transition_reveal(date) +
  ease_aes('linear') +
  theme(legend.position = 'none') +
  labs(title = "Tweets: {frame_along}")

animate(q, 16, 1)

每个日期都有10行。

可以从下面给出的csv文件链接中下载示例数据。

sample data