修复GIF中绘图位置问题：实现带动态轴标签的绘图动画

制作GIF动画时，每帧绘制y轴变量与x轴数值，但y轴变量长度变化时绘图位置偏移，无法固定。同时尝试用gganimate实现y轴变量动态显示但未成功。

可复现代码（原始magick方法） #

packs <- c("data.table","tidyverse","scales","magick")
lapply(packs,require,character.only=T)

data <- data.table(variable=c(letters[1:6],"agdjfhgbbkf"),
                   values=c(1:7))

data$variable_levels <- fct_reorder(data$variable, data$values)


generate_frame <- function(data, i) {
  
  # create the plot
  p <- ggplot(data[1:i,], aes(x = values, y = variable_levels)) +
    geom_col(fill = "#4285F4", position = position_dodge()) +
    scale_x_continuous(limits = c(0, max(data$values)),labels = scales::comma) +
    scale_y_discrete(limits = rev(levels(data$variable_levels)),
                     labels = function(x) {
                       wrap_format(10)(ifelse(x %in% data$variable_levels[1:i], x, ""))
                     }) +
    # set y-axis limits
    theme_bw() +
    theme(axis.text = element_text(family = "mono"),
          panel.grid.major.y = element_blank(),
          axis.line.y = element_blank(),
          axis.text.y = element_text(hjust = 1, size = 10),
          axis.ticks.y = element_blank(),
          axis.title.y = element_blank(),
          plot.margin = margin(t = 1, r = 1, b = 1, l = 5, unit = "cm"))+
    labs(x="Value",y="",title="")
  
  
  # save the plot as a png file
  ggsave(paste0("frame_", i, ".png"), p, width = 800, height = 400, dpi = 150,units='px')
}

# generate all the frames
for (i in 1:nrow(data)) {
  generate_frame(data, i)
}


# create an empty image list
image_list <- image_blank(width = 800, height = 400)

# read in each frame and add it to the image list
for (i in 1:nrow(data)) {
  frame_file <- paste0("frame_", i, ".png")
  frame_image <- image_read(frame_file)
  image_list <- c(image_list, frame_image)
}
# combine all frames into a GIF and save it
image_write(image_list, "animation.gif", format = "gif")

尝试过的gganimate代码（未成功） #

library(gganimate)
 library(ggplot2)

ggplot(data, aes(x = variable, y = values)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_x_continuous(limits = c(0, max(data$values)),labels = scales::comma) +
  scale_y_discrete(limits = rev(levels(data$variable_levels)),
                   labels = function(x) {
                     wrap_format(20)(ifelse(x %in% data$variable_levels, x, ""))
                   }
                   ) +
  # set y-axis limits
  theme_bw() +
  theme(axis.text = element_text(family = "mono"),
        panel.grid.major.y = element_blank(),
        axis.line.y = element_blank(),
        axis.text.y = element_text(hjust = 1, size = 10),
        axis.ticks.y = element_blank(),
        axis.title.y = element_blank())+
  labs(x="Value",y="")+
  transition_states(variable_levels, wrap = F)  +
  shadow_mark()

一、修复原始magick方法的绘图偏移问题 #

偏移核心原因是每帧y轴显示的标签内容长度变化，导致ggplot自动调整绘图面板位置。要固定位置，需强制所有帧的绘图布局一致，具体修改如下：

1. 固定绘图面板的位置与尺寸：使用ggplotGrob将绘图转换为网格对象，强制固定布局，避免因标签变化重排。
2. 确保y轴刻度位置完全固定：保留所有y轴刻度的占位，即使标签为空，也不改变刻度位置。
3. 设置GIF帧间隔：在image_write中通过delay参数控制每帧停留时间（单位：1/100秒）。

修改后的generate_frame函数及GIF生成代码：

generate_frame <- function(data, i) {
  
  p <- ggplot(data[1:i,], aes(x = values, y = variable_levels)) +
    geom_col(fill = "#4285F4") +
    scale_x_continuous(limits = c(0, max(data$values)), labels = scales::comma) +
    scale_y_discrete(limits = rev(levels(data$variable_levels)),
                     labels = function(x) {
                       wrap_format(10)(ifelse(x %in% data$variable_levels[1:i], x, ""))
                     },
                     expand = c(0, 0)) + # 移除y轴额外空白
    coord_cartesian(clip = "off") + # 允许标签超出面板范围，避免挤压绘图区域
    theme_bw() +
    theme(axis.text = element_text(family = "mono"),
          panel.grid.major.y = element_blank(),
          axis.line.y = element_blank(),
          axis.text.y = element_text(hjust = 1, size = 10),
          axis.ticks.y = element_blank(),
          axis.title.y = element_blank(),
          plot.margin = margin(t = 1, r = 1, b = 1, l = 5, unit = "cm"),
          # 强制固定面板宽高，避免重排
          panel.spacing = unit(0, "cm"),
          plot.background = element_rect(color = NA))
  
  # 转换为网格对象固定布局
  g <- ggplotGrob(p)
  # 保存网格对象为图片
  ggsave(paste0("frame_", i, ".png"), g, width = 800, height = 400, dpi = 150, units='px')
}

# 生成帧
for (i in 1:nrow(data)) {
  generate_frame(data, i)
}

# 生成GIF并设置帧间隔（delay=200表示每帧停留2秒）
image_list <- lapply(1:nrow(data), function(x) image_read(paste0("frame_", x, ".png")))
image_write(image_join(image_list), "fixed_animation.gif", format = "gif", delay = 200)

二、用gganimate正确实现动态效果 #

之前的gganimate代码存在两个核心问题：x和y映射搞反，以及transition_states逻辑不符合“逐步显示y轴标签”的需求。修改后的代码如下：

library(gganimate)
library(ggplot2)
library(forcats)
library(scales)

# 添加显示顺序列，控制动画进度
data$show_order <- 1:nrow(data)

ggplot(data, aes(x = values, y = variable_levels)) +
  geom_col(fill = "#4285F4") +
  scale_x_continuous(limits = c(0, max(data$values)), labels = scales::comma) +
  scale_y_discrete(limits = rev(levels(data$variable_levels)),
                   labels = function(x) {
                     # 仅显示当前进度及之前的标签
                     current_vals <- data$variable_levels[data$show_order <= frame_time]
                     wrap_format(10)(ifelse(x %in% current_vals, x, ""))
                   },
                   expand = c(0, 0)) +
  coord_cartesian(clip = "off") +
  theme_bw() +
  theme(axis.text = element_text(family = "mono"),
        panel.grid.major.y = element_blank(),
        axis.line.y = element_blank(),
        axis.text.y = element_text(hjust = 1, size = 10),
        axis.ticks.y = element_blank(),
        axis.title.y = element_blank(),
        plot.margin = margin(t = 1, r = 1, b = 1, l = 5, unit = "cm")) +
  labs(x = "Value", y = "") +
  # 按顺序逐步显示
  transition_time(show_order) +
  ease_aes("linear") +
  # 控制帧速率和总时长（fps=1表示每秒1帧）
  animate(fps = 1, duration = nrow(data))

说明： #

• transition_time(show_order)：按自定义顺序逐步显示每个条形和对应y轴标签。
• animate(fps = 1, duration = nrow(data))：直接控制帧速率和总时长，实现自定义帧间隔。
• 标签逻辑：通过frame_time获取当前动画进度，仅显示进度内的标签，同时保留所有y轴刻度位置，避免绘图偏移。

内容的提问来源于stack exchange，提问作者Pengcheng Lai