gganimate标记日期

Question

假设我们有以下数据：

> df
  date number
1   9/1      1
2   9/2      2
3   9/3      3
4   9/4      4
5   9/5      5

，其中'date‘列具有“月/日期”格式。

基于这些数据，我想在x轴的'date‘列中制作一个具有相同“月/日”格式的动画。

然而，R抛出一条错误消息，即“date”列必须是一个有限的数字。因此，我删除了'date‘列中的'/’，现在它使用了以下代码(参见附加的图像)：

df <- data.frame("date" = c(91, 92, 93, 94, 95), "number" = c(1,2,3,4,5))

p <- ggplot(df, aes(x = date, y = number, group =1)) +
  geom_line() +
  geom_point() +
  transition_reveal(date)
p

但是，我如何在动画的x轴中给'date‘列贴上标签，使其保持“月/日”格式？

Answer 1

ggplot可以处理日期，但它们必须是类型日期。否则，ggplot无法知道如何正确地显示它们。据我所知，没有办法没有一个没有年份的约会。但是，如果您的数据包含不足一年的数据，ggplot将不会显示该年，而只显示月份和日。下面是一个示例：

    library(ggplot2)
    library(gganimate)
    library(gifski)

    df <- data.frame("date" = c(91, 92, 93, 94, 95), "number" = c(1,2,3,4,5))

    df$date <- as.Date(c("2019-09-01", "2019-09-02", "2019-09-03", "2019-09-04", "2019-09-05"))

    p <- ggplot(df, aes(x = date, y = number, group =1)) +
      geom_line() +
      geom_point() +
      transition_reveal(date)
    p