gganimate动画图表标签异常及相关技术问题咨询

Let's tackle your core label problem first, then work through the secondary issues step by step.

Core Fix: Stop Duplicate Labels & Preserve All Labels at Animation End #

The root cause of your label chaos is that geom_text(aes(label = location)) draws a label for every single row in your dataset—meaning every historical data point gets a label, leading to overlapping duplicates as the animation plays. Plus, without proper filtering, only the last data point's label sticks around at the end. Here's how to fix it:

1. Prepare a "current frame" dataset: For each animation frame (each date), we only want to show the latest data point for each country. Create a new dataframe that filters to the most recent record per country up to each date:

# Create a dataset where each row is the latest entry per country for each date
plotCOV_animated <- plotCOV2 %>%
  group_by(location) %>%
  arrange(Date) %>%
  mutate(cumulative_max = cumsum(1)) %>% # Track entry order per country
  ungroup() %>%
  group_by(Date) %>%
  filter(cumulative_max == max(cumulative_max)) %>% # Keep only latest entry per country per date
  ungroup()

2. Update your plot to use filtered labels: Modify your base plot to use geom_label_repel (cleaner than plain text) with the filtered dataset, while keeping the line plot using the full historical data:

# Rebuild base plot with lines from full data, labels from filtered frame data
g <- plotCOV2 %>% 
  ggplot(aes(x=TestRate, y=PosRate)) +
  geom_line(aes(color=location), show.legend = FALSE) +
  # Only one label per country per frame
  geom_label_repel(data = plotCOV_animated, aes(label = location), 
                   show.legend = FALSE, size = 4) +
  labs(x = "Cumulative % of Population Tested", y = "% of Tests Returning Positive",
       title = "Test Positivity Rate (pop > 2,000,000 & > 0.75% pop tested)",
       subtitle = "Date: {format(frame_time, '%A, %B %e, %Y')}",
       caption = "Data: Our World in Data\n UN Population Data") +
  theme(plot.title = element_text(size = rel(1), face = "bold"),
        plot.subtitle = element_text(size = rel(0.7)),
        plot.caption = element_text(size = rel(1), lineheight = 0.5))

3. Animate with proper transition: Keep using transition_reveal, now labels will only appear for the current latest point of each country, and all labels will stay visible at the end:

a <- g + transition_reveal(Date)
animate(a, 
        renderer = gifski_renderer(file = paste(basepath, plotDate, "/animated/positivity.gif", sep=""), loop = FALSE),
        width = 2000, height = 1500, res = 150) # Add res for sharper output

Fixing Secondary Issues #

1. GIF Output Too Narrow #

The width and height parameters in animate() are in pixels. If it's still too narrow, adjust the aspect ratio (e.g., width = 2500, height = 1500 for a wider frame) and keep the res parameter to ensure text stays sharp.

2. {frame_time} Title Error #

The error occurs because frame_time is a Date object that can't be formatted directly in the label. Use format(frame_time, "%Y-%m-%d") (or your preferred date format) to convert it to a string, as shown in the subtitle above.

Full Updated Animation Code #

Putting it all together, here's the revised animation section:

# Prepare filtered dataset for frame-specific labels
plotCOV_animated <- plotCOV2 %>%
  group_by(location) %>%
  arrange(Date) %>%
  mutate(cumulative_max = cumsum(1)) %>%
  ungroup() %>%
  group_by(Date) %>%
  filter(cumulative_max == max(cumulative_max)) %>%
  ungroup()

# Rebuild base plot with correct labels
g <- plotCOV2 %>% 
  ggplot(aes(x=TestRate, y=PosRate)) +
  geom_line(aes(color=location), show.legend = FALSE) +
  geom_label_repel(data = plotCOV_animated, aes(label = location), 
                   show.legend = FALSE, size = 4) +
  labs(x = "Cumulative % of Population Tested", y = "% of Tests Returning Positive",
       title = "Test Positivity Rate (pop > 2,000,000 & > 0.75% pop tested)",
       subtitle = "Date: {format(frame_time, '%A, %B %e, %Y')}",
       caption = "Data: Our World in Data\n UN Population Data") +
  theme(plot.title = element_text(size = rel(1), face = "bold"),
        plot.subtitle = element_text(size = rel(0.7)),
        plot.caption = element_text(size = rel(1), lineheight = 0.5))

# Animate with fixed parameters
a <- g + transition_reveal(Date)
animate(a, 
        renderer = gifski_renderer(file = paste(basepath, plotDate, "/animated/positivity.gif", sep=""), loop = FALSE),
        width = 2000, height = 1500, res = 150,
        duration = 10) # Optional: Adjust duration to control animation speed

This should resolve the duplicate/early labels, keep all country labels visible at the end, fix the date subtitle, and give you a properly sized, sharp GIF.

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