R 使用gganimate渲染动画打印时出现问题

我正在使用R中的

gganimate

软件包为我的绘图设置动画。它工作得很好，但标志会重复，前三幅图像也会卡住

data_rates_plot %>% 
  ggplot(aes(x = Year, y = Rate, group = factor(Country))) +
  geom_line(aes(color = factor(Country))) +
  geom_image(aes(image=Image)) +
  transition_reveal(Year) +
  scale_color_manual(values=c("#34ba5c", "#000000", "#db0000", "#050c75")) +
  theme(element_line('black'),
        axis.line = element_line(color = "black",  size = 0.5, linetype = "solid"),
        plot.background = element_rect(fill = '#fff7e6'), panel.background = element_rect(fill = '#fff7e6'),
        panel.grid = element_line(colour = NULL, linetype = 3),
        panel.grid.major = element_line(colour = "black"),
        panel.grid.major.x = element_blank(),
        panel.grid.minor = element_blank() ,plot.title = element_text(hjust = 0, face = "bold"),
        plot.margin = unit(c(1, 1, 1, 1), "lines"),
        strip.background = element_rect(),
        legend.position = "none") +
  labs(title = "Ratio de homicidios (1990-2017)", x = "Año", y = "Ratio (núm. homicidios/100.000 hab.)")

这是我用来绘制的数据集的样本：

> head(data_rates_plot)
  Country Year     Rate Continent                                                                   Image
1  Brazil 1994 28.59261  Americas https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png
2  Brazil 2003 32.46278  Americas https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png
3  Brazil 2015 30.32380  Americas https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png
4  Brazil 1991 26.23049  Americas https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png
5  Brazil 1993 27.26052  Americas https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png
6  Brazil 2000 32.13900  Americas https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png

仅对巴西进行筛选：

dput（数据比率图表%>%选择（国家、年份、比率）%>%过滤器（国家=“巴西”）：

---

有人知道发生了什么吗？

这看起来像是一个关于如何假定数据已排序的问题。使用提供的数据，我得到了相同的错误结果，但当我按年份排序时，结果就消失了

未分类结果：

然后，使用排序：（并添加一个步骤以引入URL）

---

每个国家是否有多个拼写？是否有重复数据？（例如，您可以检查

数据\u比率\u绘图%>%count（国家，年份）%%>%count（n）

）不，每个国家既没有多个拼写，也没有重复的数据。例如，如果只过滤到巴西，它是否仍然显示错误？如果是这样的话，这些数据将有助于分享，使这个问题重现。是的。。我把情节添加到帖子上。谢谢你，我已经加上了！

structure(list(Country = c("Brazil", "Brazil", "Brazil", "Brazil", 
"Brazil", "Brazil", "Brazil", "Brazil", "Brazil", "Brazil", "Brazil", 
"Brazil", "Brazil", "Brazil", "Brazil", "Brazil", "Brazil", "Brazil", 
"Brazil", "Brazil", "Brazil", "Brazil", "Brazil", "Brazil", "Brazil", 
"Brazil", "Brazil", "Brazil"), Year = c(1994L, 2003L, 2015L, 
1991L, 1993L, 2000L, 2017L, 1990L, 2002L, 1997L, 2012L, 1995L, 
1992L, 2011L, 2004L, 2001L, 2013L, 1996L, 2006L, 2009L, 2014L, 
1999L, 2005L, 2010L, 2016L, 1998L, 2007L, 2008L), Rate = c(28.5926053974604, 
32.4627790546635, 30.3237998934026, 26.2304907371429, 27.2605158574606, 
32.1390025655279, 30.1328892734601, 26.7440815134982, 32.7898675004014, 
31.1361250032559, 30.6407022936813, 30.4476309648573, 26.0500124795172, 
30.2078811223668, 31.6613393520385, 32.4090823805319, 30.7139681276347, 
30.5758007548371, 30.5130381597837, 30.0623192371181, 30.686318995567, 
31.679684049261, 30.7334658622574, 30.145587333775, 30.5099622110466, 
31.5382871119106, 30.1461623438502, 29.9688608949252)), row.names = c(NA, 
-28L), class = "data.frame")

data_rates_plot %>% 
  mutate(Image = "https://upload.wikimedia.org/wikipedia/commons/0/01/Brazil_flag_300.png") %>%
  arrange(Year) %>%
  ggplot(aes(x = Year, y = Rate, group = factor(Country))) +
  ...  [same as OP)