noise added to geom_line with gganimate

34 views Asked by At

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.

noisey gganimate

0

There are 0 answers