在R中压缩pdf图的文件大小[重复]

Question

我在 R 中保存了几个大文件大小的 pdf 图，问题是我需要将它们导入到 Latex 中，这需要很多时间。我想知道如何在 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

减少要绘制的点数。

但如果你不能这样做，并且不关心放大后的外观，请以方便的 dpi 写成 png，然后在 R 之外转换为 pdf。