title: gganimate line plot for dates and counts
body: <p>I am trying to create an animated line plot that overall looks like this:</p>
  <p><img src="https://i.stack.imgur.com/GjdoQ.png" alt="Plot Image" /></p>
  <p>I think this looks a bit cluttered, and would like to show the top 3 regions at any given date as the plot &quot;progresses&quot; once animated. In other words, I would like to see only the top 3 regions with the highest counts for every date.</p>
  <p>Here is a sample of my data that I used to create this plot:</p>
  <pre><code>      Date Region1 Region2 Region3 Region4 Region5
  2020-04-01     656    1095    1198    1010    1211
  2020-04-02     423    1066    1189    1033    1366
  2020-04-03     536    1159    1396    1437    1899
  2020-04-04    1328    1229    1804    1322    1947
  2020-04-05     595    1053    1054    1052    1322
  2020-04-06     694     959    1144    1218    1697
  2020-04-07     781    1021    1177     994    1707
  2020-04-08    1011    1278    1203    1938    1408
  2020-04-09     895    1166    1312    1592    1504
  2020-04-10    1057    1368    1321    1372    1551
  </code></pre>
  <p>Here is the code I used to make the plot:</p>
  <pre><code>library(ggplot2)
  library(gganimate)
    ggplot(data = x, aes(x = Date)) +
      geom_line(aes(y = x[, 2], color = &quot;Region1&quot;), size = 1.25, show.legend = T) +
      geom_line(aes(y = x[, 3], color = &quot;Region2&quot;), size = 1.25) +
      geom_line(aes(y = x[, 4], color = &quot;Region3&quot;), size = 1.25) +
      geom_line(aes(y = x[, 5], color = &quot;Region4&quot;), size = 1.25) +
      geom_line(aes(y = x[, 6], color = &quot;Region5&quot;), size = 1.25) +
      ggtitle(&quot;Regions With Most Cases&quot;) +
      scale_x_date(date_labels = &quot;%b %d&quot;) +
      ylab(&quot;Number of Cases&quot;) +
      scale_color_manual(values = c('Region1' = 'steelblue', 'Region2' = 'darkred', 'Region3' = 'darkorchid3', 'Region4' = 'burlywood', 'Region5' = 'darkgreen')) +
      labs(color = &quot;&quot;) +
      theme_bw() +
      theme(legend.position = &quot;bottom&quot;) 
      # + transition_reveal(Date)
  </code></pre>