用 R 生成字符动画

获取动画 library(magick) if (dir.exists("./data") == FALSE) dir.create("./data") img_path = "https://picb.zhimg.com/v2-f77c2758553b63f51f2061fc711101e8_b.webp" if (file.exists("./data/ball.webp") == FALSE) { download.file(img_path, "./data/ball.webp", mode = "wb") } img = image_read("./data/ball.webp") img 动画简单处理 倒放动画 img_rev = rev(img) img_rev 局部放慢 img_slow = img[c(1:30, rep(31:44, each = 3))] img_slow 从局部放慢动画里提取每帧图片 if (dir.exists("./result") == FALSE) dir.create("./result") for (i in …