Параллельная обработка в R

Question

У меня есть код в R, чтобы выполнить классификацию и оценку (используя регрессионное моделирование) на 60 наборах данных с использованием алгоритма случайного леса, и в конце этого есть график, показывающий, как количество изменяется со временем. Я выполняю процедуру оставления на одном и том же, и поскольку это занимает много времени, я использовал параллельную обработку, используя пакет doSnow. Я могу видеть, что код действительно работает (я сохраняю вывод своих кошачьих команд в отдельном файле журнала). Однако, когда я открываю график, сохраненный после каждой итерации цикла foreach, он пуст. Похоже на полную трату времени, так как результаты сюжета были единственным выходом, который я спасал. Что я здесь делаю неправильно? Я использую R-Studio.

Код:

# Plotting 
graphics.off() 

plotIt(times,result) 
dev.copy(device=png,filename=str_c(p1,"/",cur,".png"),width = 800, height = 600) 
dev.off() 

и определение для plotIt (UserDefined Fn) является:

plotIt = function(times,result) 
    { 
    par(mar=c(4.1,4.2,0.5,0.5)) 
    par(mfrow=c(2,1)) 

    t = time[ length(time) ] 
    plot(time/60,result 
     ,xlab="time (min)" 
     ,ylab="output" 
     ,xlim=c(min(times)/60,max(times)/60) 
     ,ylim=c(0,1) 
     ,"s" 
     ) 
    points(t/60,result[length(result)],col="red") 
    lines(c(min(times)/60,max(times)/60),c(0.5,0.5),lty=2) 
    lines(c(0,0),c(0,1),lty=3) 
    } 

Участок растет с увеличением значения времени. По мере роста я сохраняю каждый кадр. «cur» обозначает номер кадра. Предположим, что значение моего значения составляет от 1 до 50, у меня будет 50 кадров с окончательным кадром, показывающим готовый сюжет. Таким образом, внутри моего пути (p1) у меня будет 50 графиков (png-файлы).

Answer 1

Этот вопрос задавался в двух экземплярах в нескольких случаях. Пожалуйста, сохраните его только в одном экземпляре.

Насколько ответ идет: вместо кода ниже,

filename=str_c(p1,"/",cur,".png") 

Вы можете задать имя файла с помощью

filename=paste(p1,"/",cur,".png",sep="") 

Я надеюсь, что p1 путь к файлу. В случае, если у вас возникли проблемы с «/» в пути/file.png, пожалуйста, используйте

graphics.off() 
setwd(p1) 
png(filename=paste(cur,".png",sep=""),width = 800, height = 600) 
plotIt(times,result) 
dev.off() 

Вы что-нибудь о том, как «дворняжка» становится генерироваться не написано. Поэтому, пожалуйста, включите это в свое объяснение, чтобы стало легче находить проблемы с кодом. Best -Mandar

Answer 2

Что делать, если вы попытались открыть устройство png перед тем, как сделать сюжет. Я подозреваю, что так вы его plotIt посылается на устройство NULL, следовательно, почему вы получаете пустой участок

png(filename=str_c(p1,"/",cur,".png"),width = 800, height = 600) 
plotIt(times,result) 
dev.off()