Невозможно автоматизировать сохранение фигур в R из разделов базы данных?

Question

Этот код работает, но не останавливается, и я не могу получить файлы, которые будут сохранены в папке «graph» на моем Mac.

i <- 1L 
for (i in 1:nrow(p)) { 
mypath <- file.path("/Users/atreyu/Desktop/graphs/",paste("DATA_", i, ".jpg", sep = "")) 
jpeg(file=mypath) 
dsmall <- p[i:(i+10),] 
qplot(dsmall$o, dsmall$t) 
dev.off() 
i <- i+10 
} 

В принципе, я хочу создать галерею рисунков, сделанных по разделам моих данных. Каждый раздел состоит из 10 строк.

Код находится в R, а p - это кадр данных, содержащий около 100 тыс. Строк. Как я могу написать более эффективный код?

UPDATE:

Я изменил код на следующее (я просто хочу знать, как сделать цикл для сохранения графиков, и я до сих пор не могу показаться, чтобы иметь возможность сохранить графики, я могу сохранить один граф, но не используя цикл)

for (i in 1:(nrow(p))) 
{ 
mypath <- file.path("/Users/atreyu/Desktop/graphs",paste("DATA_", i, ".jpg", sep = "")) 
dsmall <- p[i:(i+10),] 
jpeg(filename = mypath) 
qplot(dsmall$c, dsmall$t) 
dev.off() 
} 

UPDATE 2:

Я понял, что это работает:

for (i in 1:(nrow(p))) 
{ 
mypath <- file.path("/Users/atreyu/Desktop/graphs") 
dsmall <- p[i:(i+10),] 
jpeg(filename = paste(mypath,"DATA_", i, ".jpg", sep = "")) 
plot(dsmall$c, dsmall$t) 
dev.off() 
} 

Я понял, что вы можете сделать цикл на сюжете, но не на qplot. Как это странно?

Answer 1

Сначала удалите:

i <- i+10 

Никогда не изменять счетчик цикла, если вы не используете while петлю.

Изменить

dsmall <- p[i:i+9,] 

в

dsmall <- p[i:(i+9),] 

Это требует то, что:

for (i in 1:nrow(p)) 

идет в:

for (i in 1:(nrow(p)-9)) 

Наконец, чтобы действительно помочь, это здорово, чтобы дать образец данных с помощью:

dput(data_here) 

Редактировать

За обсуждение в комментариях, спрашивающий действительно хочет изменить индекс i следующим образом:

for(i in seq(1, nrow(p), by = 10)) 

Redux

Ниже приводится 92 отдельных графика в каталоге user (~/).

library(ggplot2) 
n = 1e2 
p = data.frame(c = rnorm(n), t = rnorm(n)) 

for (i in 1:(nrow(p)-9)) { 
    mypath <- file.path("~",paste0("DATA_", i, ".jpg")) 
    dsmall <- p[i:(i+9),] 
    a = qplot(dsmall$c, dsmall$t) 
    ggsave(mypath, a) 
} 

Пожалуйста, убедитесь, что вы создали каталог для экспорта через:

dir.create("/Users/atreyu/Desktop/graphs", recursive = T)