Kumulatiivne animatsioon

Sõnade ja lemmade arvu seos keeleoskustasemeti:

varvid = c("", "red", "blue", "orange")

saveGIF({
  nr = 1
  joonis <- tekstid %>% filter(keeletase==nr) %>% ggplot(aes(sonad, lemmad)) + geom_jitter(color="green") +
    xlim(0, 350) + ylim (0, 200) + ggtitle(paste("Keeleoskustase: ", nr))
  print(joonis)
  for (nr in 2:4){
    joonis <- joonis + geom_jitter(data = tekstid %>% filter(keeletase==nr), col=varvid[nr]) +
      ggtitle(paste("Keeleoskustase: ", nr))
    print(joonis)
  }
}, movie.name="/Users/kais/Documents/sonadlemmad2.gif", interval=2)

## Warning: Removed 1 rows containing missing values (geom_point).

## Output at: /Users/kais/Documents/sonadlemmad2.gif

## [1] FALSE

knitr::include_graphics("/Users/kais/Documents/sonadlemmad2.gif")