データベースのセクションからRに自動的に保存される図形を作成できませんか？

Question

このコードは動作しているようですが、停止せず、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は約100k行のデータフレームです。より効率的なコードを書くにはどうすればいいですか？

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）1つのグラフを保存しますが、forループを使用していない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

まず、削除：あなたがwhileループを使用している場合を除き

i <- i+10 

は、ループカウンタを変更しないでください。

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

：

for (i in 1:nrow(p)) 

は、に行く：

変更

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

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

にこれは、その必要です0

最後に、本当に助けるために、それは使用してデータのサンプルを与えるために素晴らしいです：議論パー

dput(data_here) 

編集

をコメントで、アスカーは本当にiインデックスを変更したいです次のように：

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

Reduxの

userディレクトリ（~/）に92個の個別グラフが生成されます。あなたは**強く** 100000個のグラフィックファイルを作成再考すべき

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