在R中保存几个pdf文件时出现问题
我试图保存在R中使用“for”循环创建的几个XYPlot,如果执行以下循环,我将无法获得完整的pdf文件(所有文件大小相同,我无法打开它们):在R中保存几个pdf文件时出现问题,r,pdf,save,R,Pdf,Save,我试图保存在R中使用“for”循环创建的几个XYPlot,如果执行以下循环,我将无法获得完整的pdf文件(所有文件大小相同,我无法打开它们): for (i in 1:length(gases.names)) { # Set ylim; r_y <- round(range(ratio.cal[,i][ratio.cal[,i]<999], na.rm = T), digits = 1); r_y <- c(r_y[1]-0.1, r_y[2]+0.1);
for (i in 1:length(gases.names)) {
# Set ylim;
r_y <- round(range(ratio.cal[,i][ratio.cal[,i]<999], na.rm = T), digits = 1);
r_y <- c(r_y[1]-0.1, r_y[2]+0.1);
outputfile <- paste (path, "/cal_ratio_",gases.names[i], ".pdf", sep="");
dev.new();
xyplot(ratio.cal[,i] ~ data.GC.all$data.time, groups = data.vial, panel =
panel.superpose, xlab = "Date", ylab = gases.names[i], xaxt="n", ylim = r_y);
savePlot(filename = outputfile, type = 'pdf', device = dev.cur());
dev.off();
}
for(1中的i:长度(气体名称)){
#设置ylim;
r_y直接使用pdf
for (i in seq_along(gases.names)) {
# Set ylim
r_y <- round(range(ratio.cal[,i][ratio.cal[,i]<999], na.rm = T), digits = 1)
r_y <- c(r_y[1]-0.1, r_y[2]+0.1)
outputfile <- paste (path, "/cal_ratio_",gases.names[i], ".pdf", sep="")
pdf(file = outputfile, width = 7, height = 7)
print(xyplot(ratio.cal[,i] ~ data.GC.all$data.time, groups = data.vial,
panel = panel.superpose, xlab = "Date", ylab = gases.names[i],
xaxt="n", ylim = r_y))
dev.off()
}
用于(气体名称){
#集叶立姆
请注意与此最常见的打印相关的打印的使用。