gganimate在使用current_frame或frame_time時不顯示帶有日期的標題

我正在創建一個影片，gganimate但我需要在標題上顯示日期。我的資料df（dput()包括在最后）很小，當我沒有顯示帶有日期的標題但我需要包含它時，影片效果很好。這是我使用的代碼：

library(tidyverse)
library(ggplot2)
library(gganimate)
#Code for plot
df %>% 
  pivot_longer(-c(Date)) %>%
  ggplot(aes(x=Date,y=value,color=name,
             group=name)) 
  geom_point(size=2) 
  geom_line(size=1) 
  scale_y_continuous(labels = scales::comma) 
  geom_segment(aes(xend = Date, yend = value), linetype = 2, colour = 'grey')  
  geom_text(aes(x = Date, label = sprintf("%5.0f", value),group=name), hjust = 0,show.legend = F,fontface='bold',color='black')  
  theme(axis.text.x = element_text(face = 'bold',color='black'),
        axis.text.y = element_text(face = 'bold',color='black'),
        legend.text = element_text(face = 'bold',color='black'),
        axis.title = element_text(face = 'bold',color='black'),
        legend.position = 'bottom',
        legend.title = element_text(face = 'bold',color='black'),
        legend.justification = 'center') 
  guides(color=guide_legend(nrow=1,byrow=TRUE)) 
  transition_reveal(Date) 
  view_follow(fixed_x = TRUE,fixed_y = TRUE) 
  labs(title = 'Values at {current_frame}')

當我添加 current_frame 或 frame_time 時，我得到了這個并且沒有渲染影片：

object 'current_frame' not found

或這個：

object 'frame_time' not found

我該如何解決這個問題，以便我可以在標題上顯示我的日期？非常感謝！

我的資料df是下一個：

#Data
df <- structure(list(A = c(209.666666666667, 205, 203.333333333333, 
202.333333333333, 223.666666666667, 199.666666666667, 192.666666666667, 
213.666666666667, 206.666666666667, 206.666666666667, 196.333333333333, 
197.333333333333, 204, 191.333333333333, 203.666666666667, 200.666666666667, 
201, 199.333333333333, 204.666666666667, 195, 217, 212, 200, 
193.333333333333, 211.333333333333), B = c(0, 0, 25.6666666666667, 
0, 0, 7.33333333333334, 3.33333333333334, 23.3333333333333, 27.3333333333333, 
60.3333333333333, 99.6666666666667, 174.666666666667, 237, 310.666666666667, 
413.333333333333, 544.333333333333, 576, 688.666666666667, 722.333333333333, 
878, 831, 865, 938, 858.666666666667, 770.666666666667), Date = structure(c(18334, 
18335, 18336, 18337, 18338, 18339, 18340, 18341, 18342, 18343, 
18344, 18345, 18346, 18347, 18348, 18349, 18350, 18351, 18352, 
18353, 18354, 18355, 18356, 18357, 18358), class = "Date")), class = "data.frame", row.names = c(NA, 
25L))

uj5u.com熱心網友回復：

你應該frame_along在標題中使用來顯示。您可以使用以下代碼：

    df <- structure(list(A = c(209.666666666667, 205, 203.333333333333, 
                           202.333333333333, 223.666666666667, 199.666666666667, 192.666666666667, 
                           213.666666666667, 206.666666666667, 206.666666666667, 196.333333333333, 
                           197.333333333333, 204, 191.333333333333, 203.666666666667, 200.666666666667, 
                           201, 199.333333333333, 204.666666666667, 195, 217, 212, 200, 
                           193.333333333333, 211.333333333333), B = c(0, 0, 25.6666666666667, 
                                                                      0, 0, 7.33333333333334, 3.33333333333334, 23.3333333333333, 27.3333333333333, 
                                                                      60.3333333333333, 99.6666666666667, 174.666666666667, 237, 310.666666666667, 
                                                                      413.333333333333, 544.333333333333, 576, 688.666666666667, 722.333333333333, 
                                                                      878, 831, 865, 938, 858.666666666667, 770.666666666667), Date = structure(c(18334, 
                                                                                                                                                  18335, 18336, 18337, 18338, 18339, 18340, 18341, 18342, 18343, 
                                                                                                                                                  18344, 18345, 18346, 18347, 18348, 18349, 18350, 18351, 18352, 
                                                                                                                                                  18353, 18354, 18355, 18356, 18357, 18358), class = "Date")), class = "data.frame", row.names = c(NA, 
                                                                                                                                                                                                                                                   25L))
library(reprex)
library(tidyverse)
#> Warning: package 'tidyr' was built under R version 4.1.2
#> Warning: package 'readr' was built under R version 4.1.2
#> Warning: package 'dplyr' was built under R version 4.1.2
library(ggplot2)
library(gganimate)
#Code for plot
df %>% 
  pivot_longer(-c(Date)) %>%
  ggplot(aes(x=Date,y=value,color=name,
             group=name)) 
  geom_point(size=2) 
  geom_line(size=1) 
  scale_y_continuous(labels = scales::comma) 
  geom_segment(aes(xend = Date, yend = value), linetype = 2, colour = 'grey')  
  geom_text(aes(x = Date, label = sprintf("%5.0f", value),group=name), hjust = 0,show.legend = F,fontface='bold',color='black')  
  theme(axis.text.x = element_text(face = 'bold',color='black'),
        axis.text.y = element_text(face = 'bold',color='black'),
        legend.text = element_text(face = 'bold',color='black'),
        axis.title = element_text(face = 'bold',color='black'),
        legend.position = 'bottom',
        legend.title = element_text(face = 'bold',color='black'),
        legend.justification = 'center') 
  guides(color=guide_legend(nrow=1,byrow=TRUE)) 
  transition_reveal(Date) 
  view_follow(fixed_x = TRUE,fixed_y = TRUE)  
  labs(title = 'Values at {(frame_along)}')

輸出

由 reprex 包于 2022-03-16 創建 (v2.0.1)

標籤：r ggplot2 gganimate

上一篇：點的條件顏色取決于哪個變數采用特定值

下一篇：ggplot：定義sexond軸改變第一個軸的格式