使用gganimate的transition_manual时，如何设置日期标题并避免渲染卡顿？

问题 #

使用gganimate包制作每日地图动画时，尝试通过labs(title = 'Date: {frame_time}')设置日期标题，但使用transition_manual(date)会触发object 'frame_time' not found警告且动画无法显示；改用transition_time(date)虽能正常显示标题，但渲染时间从5秒飙升至5分钟以上。如何在使用transition_manual(date)的同时，正确设置日期标题并保持较快的渲染速度？

解决方案 #

frame_time是transition_time()专属的变量，transition_manual()并不支持该变量。要在transition_manual()中显示分组对应的日期，可通过以下两种高效方式实现：

方法1：利用transition_manual()的labels参数 #

在transition_manual()中指定labels参数为日期的字符串格式，然后在标题中使用{frame_label}调用该标签，即可直接显示对应日期。这种方式完全保留transition_manual()的快速渲染特性，不会产生额外性能损耗。

方法2：直接引用分组变量 #

由于数据中每个帧对应唯一的date值，也可直接在标题中使用{date}调用当前帧的日期变量，无需额外配置参数。

修改后的代码示例 #

library(ggplot2)
library(dplyr)
library(geodata)
library(sf)
library(gganimate)
library(gifski)

# 获取德克萨斯州边界
tx <- gadm(country = 'USA', level = 1, path=tempdir()) %>%
  st_as_sf() %>% 
  filter(NAME_1 %in% 'Texas') %>%
  mutate(State = NAME_1) %>%
  select(State, geometry)

# 构造模拟数据
df1 <- data.frame(matrix(ncol = 4, nrow = 3))
colnames(df1)[1:4] <- c('State','date_start','date_end','event')
df1$State <- 'Texas'
df1$date_start <- c(as.Date('2020-01-02'),
                    as.Date('2020-01-10'),
                    as.Date('2020-01-16'))
df1$date_end <- c(as.Date('2020-01-05'),
                  as.Date('2020-01-13'),
                  as.Date('2020-01-24'))
df1$event <- c('moderate','strong','severe')

df1 <- left_join(df1,tx, by = 'State')

df2 <- data.frame(matrix(ncol = 1, nrow = 31))
colnames(df2)[1] <- 'date'
df2$date <- seq.Date(as.Date('2020-01-01'),
                     as.Date('2020-01-31'),
                     1)

datt <- left_join(df2, df1, by = join_by(between(date, date_start, date_end))) %>%
  select(date,event,geometry) %>%
  mutate(geometry = tx$geometry,
         event = ifelse(is.na(event),'None',event)) %>%
  mutate(event = case_match(event,
                            'None' ~ 'None',
                            'moderate' ~ 'Moderate',
                            'strong' ~ 'Strong',
                            'severe' ~ 'Severe'))

cols <- c('None' = 'white',
          'Moderate' = '#ffda68',
          'Strong' = '#f26722',
          'Severe' = '#cb3827')

# 方法1：使用labels参数+frame_label显示日期
map_fast_with_title <- ggplot() +
  geom_sf(data = datt,
          mapping = aes(geometry = geometry,
                        fill = event)) +
  coord_sf(xlim = c(-107.5, -92), ylim = c(25.5, 37), expand = F) +
  scale_fill_manual(values = cols) +
  labs(fill = 'Severity Classification',
       title = 'Date: {frame_label}') +
  theme_void() +
  transition_manual(date, labels = as.character(date))

animate(map_fast_with_title, nframes = 31, fps = 5)

# 方法2：直接引用date变量显示日期
map_fast_with_title2 <- ggplot() +
  geom_sf(data = datt,
          mapping = aes(geometry = geometry,
                        fill = event)) +
  coord_sf(xlim = c(-107.5, -92), ylim = c(25.5, 37), expand = F) +
  scale_fill_manual(values = cols) +
  labs(fill = 'Severity Classification',
       title = 'Date: {date}') +
  theme_void() +
  transition_manual(date)

animate(map_fast_with_title2, nframes = 31, fps = 5)

补充说明 #

• transition_time()渲染缓慢的原因：它会基于时间序列进行平滑插值过渡，即使指定了nframes，内部仍会处理大量过渡帧，导致渲染时间剧增；而transition_manual()是直接按分组切换帧，无插值计算，因此速度更快。
• 两种方法均能保持transition_manual()的高效渲染，同时正确显示每日日期标题。

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