发行创造与日期还是价值和投资者提供gganimate动画

Question

我米试图动画geom_line图表与下文提到的数据：

quarter       Total.Return   Investor
2009-03-30      4       A
2009-03-30      5       B
2009-06-30      7       A
2009-06-30     10       B
2009-09-30     12       A
2009-09-30     11       B
2009-12-30     25       A
2009-12-30     35       B
2010-03-30     65       A
2010-03-30     65       B

我的代码

library(ggplot2)
library(gganimate)
ggplot(newfile, aes(Quarter, Total.Return, color = Investor, label = Investor, group = Investor)) +
  geom_line()+
  scale_x_date(breaks = newfile$Quarter)+
  theme(axis.text.x = element_text(angle = 90, hjust = 1))
  # scale_x_date(labels = date_format("%m/%d/%Y"))+
  transition_time(Quarter)

Answer 1

可能是我没有正确地提出问题。但是，我能够让我的代码的运行，以便张贴的答案：

   ggplot(newfile, aes(Date,  TotalReturn, color = Investor)) +
      geom_line(aes(size = 3)) +
      geom_point(aes(size = 6,alpha = 0.5)) +
      geom_text(aes(label=paste0(TotalReturn,"%")),hjust= -0.5, vjust=0,size = 6)+
      facet_grid(rows = vars(Investor)) +
      # theme(legend.position = 'none') +
      labs(title = 'Total Return, Quarter: {frame_along}') +
      theme(axis.title=element_text(face="bold.italic", 
                                        size="12", color="brown"), legend.position="none") +
      transition_reveal(along =Date) +
      ease_aes('linear')