r - gghistogram + gganimate中的鬼条

问题描述

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

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

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

我想不通。有关如何删除较暗条的任何想法？谢谢！

标签： rgganimateggpubr

对于 and 的给定值x，您的数据genero框中有多个的值。深阴影代表较低的值，较浅的阴影代表较高的值。如果您有两个值，您将看到两个阴影，对于 3 个值，您将看到 3 个阴影，依此类推。您可以为该变量的单个值设置数据帧 df 的子集，从而生成和的唯一组合。然后你只会得到一种阴影。如果没有样本数据框，则无法确认。ydfxygenero

r - gghistogram + gganimate中的鬼条

问题描述

解决方案

推荐阅读