Сжать размер файла pdf-графика в R

Question

Я сохранил несколько графиков PDF с большим размером файла в R, проблема в том, что мне нужно будет импортировать их в латекс, что занимает много времени. Мне интересно, как сохранить сюжет с меньшим размером файла в R? Благодарю.

Пример 1.

seasonplot(ts(hdemand$Demand,frequency=24), 
      col=rainbow(length(hdemand$Demand)/48)) 
dev.print(device=pdf,file="hourdemand.pdf") 
dev.off() 

Пример 2. (Даже встроенна участок занимает раз из-за размера данных)

par(mfrow=c(1,2)) 
plot(data$Temp,all.data$Demand) 
abline(lm(data$Demand~data$Temp), col="red") 

plot(data$APX,data$Demand) 
abline(lm(data$Demand~data$APX), col="red") 
dev.print("LR.pdf",device=pdf) 
dev.off() 

Answer 1

уменьшить количество точек, которые вы рисуете.

Но если вы не можете этого сделать и не заботитесь о том, как он будет выглядеть при увеличении, выпишите его как png на удобном dpi и затем преобразуйте в PDF за пределами R.