gganimate动画标签显示颜色代码而非百分比问题求助

1. 标签显示颜色代码的修复 #

标签显示颜色代码的核心原因是动画渲染时标签与数据的映射出现异常，可通过以下两点调整：

• 简化百分比标签生成逻辑：用更简洁的写法确保标签纯为百分比文本，避免潜在的格式错误：

  df_new$rate_label <- sprintf("%.1f%%", df_new$rate)
  

  该代码会自动处理整数和小数情况，比如输出25.0%或25.5%，无需额外ifelse判断。
• 明确标签的分组绑定：在geom_shadowtext中添加group = year，确保每个年份的标签正确绑定到对应条形，避免动画过程中的错误关联：

  geom_shadowtext(aes(y = rate, label = rate_label, group = year),
                  bg.colour='white',
                  colour = 'black',
                  size = 9,
                  fontface = "bold",
                  vjust = -0.7,
                  alpha = 1
  )
  

2. 条形颜色映射的修正 #

原代码中scale_fill_manual(values = colour)存在逻辑错误：colour是数据列名，而该函数需要的是对应每个year的颜色向量。正确做法是先整理年份与颜色的对应关系：

# 提取每个年份对应的唯一颜色
colour_map <- unique(df_new[, c("year", "colour")])
# 转换为命名向量供颜色映射使用
colour_vec <- setNames(colour_map$colour, colour_map$year)

# 在ggplot中替换为：
scale_fill_manual(values = colour_vec)

3. 帧率与动画速度的修复 #

• 确保frame_rate是已定义的数值（比如frame_rate <- 15），否则animate()会使用默认帧率，导致速度不符合预期。
• 移除view_follow(fixed_y = T)：由于y轴范围已通过scale_y_continuous(limits = c(0, 45))固定，该函数会干扰动画轴显示，引发不必要的调整。
• 根据需求调整nframes和fps的搭配：比如nframes=300且fps=15时，动画总时长为20秒，可按需增减参数改变速度。

修正后的完整代码 #

# 定义帧率
frame_rate <- 15

df_new <- data.frame(index, rate, year, colour)
# 生成百分比标签
df_new$rate_label <- sprintf("%.1f%%", df_new$rate)

# 整理颜色映射关系
colour_map <- unique(df_new[, c("year", "colour")])
colour_vec <- setNames(colour_map$colour, colour_map$year)

p <- ggplot(df_new, aes(x = year, y = rate, fill = year)) +
  geom_bar(stat = "identity", position = "dodge") + 
  scale_fill_manual(values = colour_vec) + 
  geom_shadowtext(aes(y = rate, label = rate_label, group = year),
                  bg.colour='white',
                  colour = 'black',
                  size = 9,
                  fontface = "bold",
                  vjust = -0.7,
                  alpha = 1
  ) +
  coord_cartesian(clip = 'off') +
  ggtitle("% population belonging to 'No religion', England and Wales census") +
  theme_minimal() + 
  xlab("") + ylab("") +
  theme(legend.position = "none") + 
  theme(plot.title = element_text(size = 18, face = "bold")) +
  theme(axis.text = element_text(size = 14)) +
  scale_y_continuous(limits = c(0, 45), breaks = 10*(0:4))

# 设置动画过渡逻辑
p <- p + transition_reveal(index)

# 渲染并保存动画
animate(p, renderer = gifski_renderer(), nframes = 300, fps = frame_rate, 
        height = 500, width = 800, end_pause = 0)
anim_save("atheism.gif")

内容的提问来源于stack exchange，提问作者Leonhard Euler