Как интегрировать процесс щелчка «Экспорт -> Сохранить как изображение» в скрипт?

Question

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

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

Спасибо за любой совет.

Код:

f1=jitter(sample(c(2,3),1));
f2=jitter(sample(c(2,3),1));
f3=jitter(sample(c(2,3),1));
f4=jitter(sample(c(2,3),1));
d1=runif(1,0,1e-02);
d2=runif(1,0,1e-02);
d3=runif(1,0,1e-02);
d4=runif(1,0,1e-02)
p1=runif(1,0,pi);
p2=runif(1,0,pi);
p3=runif(1,0,pi);
p4=runif(1,0,pi);
xt = function(t) exp(-d1*t)*sin(t*f1+p1)+exp(-d2*t)*sin(t*f2+p2)
yt = function(t) exp(-d3*t)*sin(t*f3+p3)+exp(-d4*t)*sin(t*f4+p4)
t=seq(1, 100, by=0.001)

dat=data.frame(t=t, x=xt(t), y=yt(t)) 
with(dat, plot(x,y, type="l", xlim =c(-2,2), ylim =c(-2,2), xlab = "", ylab = "", xaxt='n', yaxt='n'))

Answer 1

Вот попытка ответить на ваш вопрос. Я проверил ваш код и, по крайней мере, он работает на Ubuntu 18.04.

# your code up

# create the file
png(filename = "test.png", width = 480, height = 480, units = "px", pointsize = 12, bg = "white", res = NA, type = c("cairo", "cairo-png", "Xlib", "quartz"))
# plot
with(dat, plot(x,y, type="l", xlim =c(-2,2), ylim =c(-2,2), xlab = "", ylab = "", xaxt='n', yaxt='n'))
# close the file
dev.off()