使用 ggplot 和 gganiminate 的动画条形图答案

【问题标题】：Animated bar chart using ggplot and gganiminate使用 ggplot 和 gganiminate 的动画条形图
【发布时间】：2020-08-01 12:26:19
【问题描述】：

我有一个用 ggplot 创建的条形图，我想对其进行动画处理；基本情节是...

我在网上对此进行了研究并创建了以下代码：-

这是一些 Reprex 数据...

 Data <- as.data.frame(rbind(c("11 Mar'", "Male", "20-30"),
                                                c("11 Mar'", "Male", "20-30"),
                                                c("11 Mar'", "Female", "20-30"),
                                                c("12 Mar'", "Female", "50-60"),
                                                c("12 Mar'", "Female", "10-20"),
                                                c("12 Mar'", "Male", "60-70"),
                                                c("13 Mar'", "Female", "20-30"),
                                                c("13 Mar'", "Female", "60-70"),
                                                c("13 Mar'", "Male", "60-70"),
                                                c("13 Mar'", "Male", "60-70"),
                                                c("13 Mar'", "Female", "20-30"),
                                                c("14 Mar'", "Female", "70-80"),
                                                c("14 Mar'", "Female", "70-80"),
                                                c("14 Mar'", "Male", "40-50")))
                    colnames(Data) <- c("Date", "Sex", "AgeGroup")

这是我对 ggplot 的呼吁……

 ggplot(Data, aes(x = AgeGroup, fill = Sex, frame = Date, Cumulative = TRUE)) + 
                 geom_bar(position = position_dodge2(preserve = "single")) +
                 scale_fill_manual(values = c("lightblue", "darkblue")) +
                 xlab("\nAge Group") + ylab("\nIndividuals") +
                 ggtitle("\nMarch - April 2020") + 
                 scale_y_discrete(limits= c(2,4,6,8)) + theme_pc() +
                 transition_states(Date, transition_length = 4, state_length = 1) +
                   labs(title = 'Date: {closest_state}',  
                   subtitle  =  "Age and Gender distribution",
                   caption  = "data as of 0945 10 Apr 2020")

不幸的是，我没有得到想要的输出 - 数据没有累积显示相反，绘图的每一帧都会刷新以仅显示一天的结果。我希望 geom_bar 总是会在几天内累积数据，但似乎没有 - 我什至有“累积 = TRUE” 在 ggplot 调用中，但结果仍然看起来像这样......

谁能指出我正确的方向？？

【问题讨论】：

请将个人计数更新为样本数据，并添加 gganimate 代码。顺便说一句，您可以尝试使用年龄组和性别的每个组合的累积总和创建一个新变量，并以此进行绘图。
对不起，我不明白您所说的“将个人计数更新为样本数据”是什么意思...... gganimate 代码也附加到 golly 调用的末尾 - 从“transition_states(日期......”
对不起，我误解了您的数据集，好像它应该在每个横截面上都有计数。不，我意识到频率范围在 0 到 2 之间。

标签： r animation ggplot2 gganimate

【解决方案1】：

我设法得到它。我通过复制前一个日期的行并添加到当前日期等来复制数据集。这样频率将是累积的。我无法在 R 中完成它。但是，数据将如下所示：

Data <- structure(list(Date = c("11 Mar'", "11 Mar'", "11 Mar'", "12 Mar'", 
"12 Mar'", "12 Mar'", "12 Mar'", "12 Mar'", "12 Mar'", "13 Mar'", 
"13 Mar'", "13 Mar'", "13 Mar'", "13 Mar'", "13 Mar'", "13 Mar'", 
"13 Mar'", "13 Mar'", "13 Mar'", "13 Mar'", "14 Mar'", "14 Mar'", 
"14 Mar'", "14 Mar'", "14 Mar'", "14 Mar'", "14 Mar'", "14 Mar'", 
"14 Mar'", "14 Mar'", "14 Mar'", "14 Mar'", "14 Mar'", "14 Mar'"
), Sex = c("Female", "Male", "Male", "Female", "Female", "Female", 
"Male", "Male", "Female", "Female", "Female", "Female", "Female", 
"Female", "Female", "Male", "Male", "Male", "Male", "Male", "Female", 
"Female", "Female", "Female", "Female", "Female", "Female", "Female", 
"Male", "Male", "Female", "Male", "Male", "Male"), AgeGroup = c("20-30", 
"20-30", "20-30", "10-20", "20-30", "50-60", "20-30", "20-30", 
"60-70", "10-20", "20-30", "20-30", "20-30", "50-60", "60-70", 
"20-30", "20-30", "60-70", "60-70", "60-70", "10-20", "20-30", 
"20-30", "20-30", "50-60", "60-70", "70-80", "70-80", "20-30", 
"20-30", "40-50", "60-70", "60-70", "60-70")), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -34L), spec = structure(list(
    cols = list(Date = structure(list(), class = c("collector_character", 
    "collector")), Sex = structure(list(), class = c("collector_character", 
    "collector")), AgeGroup = structure(list(), class = c("collector_character", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1), class = "col_spec"))

然后，需要添加带有 alpha 值的 enter_grow() 和 exit_fade()。确保条形按类别的相同顺序显示。通常，无论颜色如何，首先都会绘制可用值的条形图。使条形颜色在过渡时发生变化。

ggplot(Data, aes(x = AgeGroup, fill = Sex, frame = Date)) + 
  geom_bar(position = position_dodge(preserve = "single")) +
  scale_fill_manual(values = c("lightblue", "darkblue"), drop = TRUE) +
  xlab("\nAge Group") + ylab("\nIndividuals") +
  ggtitle("\nMarch - April 2020") + 
  scale_y_discrete(limits= c(2,4,6,8)) +
  transition_states(Date, transition_length = 4, state_length = 1) + shadow_mark() +
  enter_grow() + 
  exit_fade(alpha = 1)+
  labs(title = 'Date: {closest_state}',  
       subtitle  =  "Age and Gender distribution",
       caption  = "data as of 0945 10 Apr 2020")

【讨论】：