Fix blurry/overlapping text when using gganimate

user_5732269 0
Viewed 845

I'm having trouble creating high resolution files when using gganimate. The text in the charts comes out blurry, almost as if the text is being written for every new frame in the .gif.

Example of blurry chart text

Is there a simple solution to this problem? I tried fiddling with the ani.options(), but haven't had any luck there either.

Example data and code: 

value <- sample(0:30, 300, replace = TRUE)
year <- rep(c(2000, 2001, 2002), 100)

df <- as.data.frame(cbind(value, year))

library(gganimate)
library(tidyverse)

df <- df %>% group_by(year) %>% mutate(avg.value = mean(value))    

p <- df %>% 
   ggplot(aes(x = value)) + 
   geom_histogram(position = 'identity', color = "white") + 
   geom_segment(aes(xend = avg.value, x = avg.value, y = 0, yend = -.5), 
   color = "red", size = 2.5) +
   transition_states(as.factor(year), transition_length = 2, state_length 
   = 1, wrap = TRUE) + 
   annotate("text", x = df$avg.value, y = -1, label = "Average") + 
   labs(x = " ", 
   y = "", 
   title = "Example chart", 
   subtitle = "Don't it look blurry?")

animate(p, nframes = 100, renderer = gifski_renderer("example.gif"))
gganimate ggplot2 r
1 Answers

To annotate (or geom_text in my code) you're submitting multiple same avg.value values. When for yeach year you need only one you're adding hundred values. This results in hundred "Average" plotted on each other.
Solution is to submit different data to geom_text (ie, df2) that contains only 3 rows (one entry for each year).

Code:

library(gganimate)
library(tidyverse)
value <- sample(0:30, 300, replace = TRUE)
year <- rep(c(2000, 2001, 2002), 100)

df1 <- as.data.frame(cbind(value, year))
df1 <- df1 %>% group_by(year) %>% mutate(avg.value = mean(value))    
df2 <- df1 %>% group_by(year) %>% summarize(avg.value = head(avg.value, 1))    

r1 <- ggplot(df1) + 
   geom_histogram(aes(value), position = "identity", color = "white") + 
   geom_segment(aes(x = avg.value, xend = avg.value, y = 0, yend = -0.5), 
                color = "red", size = 2.5) +
   geom_text(aes(avg.value, -1, label = "Average"), df2) + 
   transition_states(as.factor(year), 2, 1) + 
   labs(title = "Example chart", 
        subtitle = "No more blur",
        x = NULL, 
        y = NULL)
animate(r1, nframes = 100, renderer = gifski_renderer("example.gif"))
user_12865280
Related