gghistogram + gganimate 中的幽灵条

Question

我正在尝试使用以下代码制作动画直方图：

library(ggpubr)
library(gganimate)

p <- gghistogram(df, x = "Idade", bins = 30,
   add = "mean", rug = T,
   color = "Género", fill = "Género",
   palette = c("#0073C2FF", "#FC4E07", "grey"), 
   xlab ="Idade (anos)", ylab = "(n)", 
   title = "Distribuição de Idades") + 
  theme(legend.position = "right")+ 
  theme_ipsum_rc(grid="Y",base_size = 16,axis_title_size = 14)+
  transition_states(Idade, wrap = F) + shadow_mark() + enter_grow() +  exit_fade() 

animate(p,  nframes=100, fps = 10, renderer = gifski_renderer(loop = FALSE))

但我得到了不同的深蓝色和红色条（重影），如下所示：

我想不通。关于如何去除深色条的任何想法？谢谢！

Answer 1

对于 x 和 genero 的给定值，您的数据框 df 中有多个 y 值。深色代表较低的值，较浅的阴影代表较高的值。如果您有两个值，您将看到两个阴影，如果有 3 个值，您将看到 3 个阴影，依此类推。您可以为该变量的单个值对数据帧 df 进行子集化，从而得到 x、y 和 genero 的唯一组合。那么你只会得到一种阴影。没有示例数据框，无法确认。

gghistogram + gganimate 中的幽灵条

Ghost bars in gghistogram + gganimate

r

gganimate

ggpubr