title: Is it possible to add a GIF to a R Markdown report?
body: <p>This is the code I used to create the GIF plot - </p>
  
  <pre><code># Libraries:
  library(ggplot2)
  library(gganimate)
  library(giphyr)
  
  # Creating the monthly dataframes
  
  x_01=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(7601, 7950, 948)
                  , date=rep('2017/01', 3))
  
  x_02=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(7701, 7992, 981)
                  , date=rep('2017/02', 3))
  
  x_03=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(7819, 8058, 1022)
                  , date=rep('2017/03', 3))
  
  x_04=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(7887, 8090, 1040)
                  , date=rep('2017/04', 3))
  
  x_05=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8029, 8200, 1081)
                  , date=rep('2017/05', 3))
  
  x_06=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8092, 8353, 1108)
                  , date=rep('2017/06', 3))
  
  x_07=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8188, 8445, 1139)
                  , date=rep('2017/07', 3))
  
  x_08=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8247, 8605, 1182)
                  , date=rep('2017/08', 3))
  
  x_09=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8371, 8909, 1229)
                  , date=rep('2017/09', 3))
  
  x_10=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8427, 9040, 1252)
                  , date=rep('2017/10', 3))
  
  x_11=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8501, 9171, 1295)
                  , date=rep('2017/11', 3))
  
  x_12=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8532, 9218, 1354)
                  , date=rep('2017/12', 3))
  
  x_13=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8609, 9430, 1408)
                  , date=rep('2018/01', 3))
  
  x_14=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8803, 9633, 1465)
                  , date=rep('2018/02', 3))
  
  x_15=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(8970, 9936, 1522)
                  , date=rep('2018/03', 3))
  
  x_16=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9061, 10008, 1556)
                  , date=rep('2018/04', 3))
  
  x_17=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9115, 10057, 1622)
                  , date=rep('2018/05', 3))
  
  x_18=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9170, 10154, 1685)
                  , date=rep('2018/06', 3))
  
  x_19=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9229, 10238, 1744)
                  , date=rep('2018/07', 3))
  
  x_20=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9182, 10338, 1798)
                  , date=rep('2018/08', 3))
  
  x_21=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9257, 10490, 1866)
                  , date=rep('2018/09', 3))
  
  x_22=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9355, 10607, 1950)
                  , date=rep('2018/10', 3))
  
  x_23=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9365, 10684, 2023)
                  , date=rep('2018/11', 3))
  
  x_24=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9393, 10668, 2088)
                  , date=rep('2018/12', 3))
  
  x_25=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9442, 10788, 2153)
                  , date=rep('2019/01', 3))
  
  x_26=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9549, 11000, 2185)
                  , date=rep('2019/02', 3))
  
  x_27=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9606, 11060, 2263)
                  , date=rep('2019/03', 3))
  
  x_28=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9658, 11105, 2315)
                  , date=rep('2019/04', 3))
  
  x_29=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9709, 11147, 2377)
                  , date=rep('2019/05', 3))
  
  x_30=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9751, 11190, 2447)
                  , date=rep('2019/06', 3))
  
  x_31=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9811, 11246, 2505)
                  , date=rep('2019/07', 3))
  
  x_32=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9874, 11303, 2658)
                  , date=rep('2019/08', 3))
  
  x_33=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9931, 11438, 2864)
                  , date=rep('2019/09', 3))
  
  x_34=data.frame(Social=c("Twitter", "Facebook", "Instagram")
                  , Followers=c(9993, 11520, 3000)
                  , date=rep('2019/10', 3))
  
  # Bind them into one
  x_bind=rbind(x_01,
               x_02,
               x_03,
               x_04,
               x_05,
               x_06,
               x_07,
               x_08,
               x_09,
               x_10,
               x_11,
               x_12,
               x_13,
               x_14,
               x_15,
               x_16,
               x_17,
               x_18,
               x_19,
               x_20,
               x_21,
               x_22,
               x_23,
               x_24,
               x_25,
               x_26,
               x_27,
               x_28,
               x_29,
               x_30,
               x_31,
               x_32,
               x_33,
               x_34)
  
  # Creating the index values for our final dataframe
  index &lt;- rep(1:34,each=3)
  
  # Creating the final dataframe and rename the columns
  df_x &lt;- data.frame(index,x_bind[, 1], x_bind[, 2], x_bind[, 3])
  
  names(df_x) &lt;- c("Index", "Social", "Followers", "Dates")
  
  df_x
  
  #Plot and animate 
  
  a &lt;- ggplot(df_x, aes(x= Social, y= Followers, fill= Social)) +
    geom_bar(stat = "Identity") +
    labs(title = "Date: {closest_state}") +
    geom_text(aes(label = Followers, y = Followers),
              position = position_dodge(0.9), vjust = -1) +
    theme_classic() +
    transition_states(states = Dates, transition_length = 2, state_length = 2) +
    enter_fade() +
    exit_shrink() +
    ease_aes('sine-in-out')
  
  a_gif &lt;- animate(a, width = 700, height = 480)
  
  a_gif
  </code></pre>
  
  <p>However it has not worked and comes up with this error message - </p>
  
  <p><strong>Error: Can only combine factories of same class
  In addition: There were 24 warnings (use warnings() to see them)
  Execution halted</strong></p>
  
  <p>I also tried by saving the plot in my local directory and reading it in to the R Markdown report but this was also unsuccessful. </p>
  
  <p>Is it possible to add a GIF plot to a R Markdown report?</p>