I am seeing noise added to the output when I'm using gganimate.
library(gganimate)
#> Loading required package: ggplot2
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
dates <- seq(as.Date("2020-01-01"), as.Date("2020-04-30"), by = "day")
x_axis <- seq(0, 1, by = 0.01)
d1 <- expand.grid(dates, x_axis)
names(d1) <- c('date','x')
y1 <- seq(0.15,1,length.out = length(dates))
d2 <- data.frame(dates, y1)
names(d2) <- c('date','y')
d3 <- d2 %>% left_join(d1)
#> Joining, by = "date"
ggplot(
d3
, aes(
x = x
, y = y
)
) +
geom_line() +
transition_time(
date
)
This renders the following output where I am seeing the noise added to output.