Question

我想将一系列ggplot2数字保存为jpg来制作电影（在R之外）。我想展示我的绘图的演变，其中第一个图像表示我的csv表的第一行的图，第二个图像表示两个第一行，第N个图像表示第N个第一行等。

这是我的代码：

library(ggplot2)
library(RColorBrewer)

dat <- read.csv("https://dl.dropboxusercontent.com/u/73950/dataset.csv", check.names = FALSE)

colnames(dat)[colnames(dat)=="A"] <- "a"
colnames(dat)[colnames(dat)=="B"] <- "b"

res <- do.call(rbind, combn(1:d, 2, function(ii)
  cbind(row=seq(nrow(dat)),setNames(dat[,c(ii, setdiff(1:d, ii))], c("x", "y")),
        var=paste(names(dat)[ii], collapse="/")), simplify=F))

ggplot(res, aes(x=x, y=y, color=row))+ geom_point(shape=20, alpha = .6) +
  scale_color_gradientn("Iter",colours=rev(brewer.pal(9,"Spectral")))

情节＆＃39;轴需要有界限，所以电影也不会跳转。我怎样才能完成这个？

制作一系列ggplot2图来制作电影

0 个答案: