gghistogram+中的鬼条；制作动画

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

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))

库（ggpubr）
库（gganimate）
p对于给定的
x
和
genro
，您的数据帧
df
中有多个
y
。深色阴影表示较低的值，浅色阴影表示较高的值。如果有两个值，您将看到两个阴影，对于3个值，您将看到3个阴影，依此类推。您可以将数据帧df子集为该变量的单个值，从而产生
x
、
y
和
genro
的唯一组合。那么你只能得到一个阴影。如果没有示例数据框，则无法确认。
看起来像重叠的条，但如果没有示例数据框，则很难给出非常具体的建议。。。