R jpeg中来自包晶格的直方图

可能重复：

我试图用包晶格中的直方图存储数据中所有变量的所有绘图。 当我直接运行时，它可以工作，但如果我使用函数，就不会创建图形。 我的职能是：

plotHistByGroups<-function(data, res)
{
   jpeg("plots/histBy%03d.jpg", quality=100)
   finalres<-as.factor(res)
   names<-colnames(data)
   library(lattice)
   for( i in 1: length(data))
   {
     title<-paste(names[i], "~")
     title<-paste(title, length(levels(finalres)))
     title<-paste(title, "clusters")
     histogram(~data[,i] | finalres, data, xlab=names[i], main=title)    
   }
   dev.off()
}

---

Bea

您需要将其包装成

打印（直方图（…）

，是的，这是：

7.22为什么晶格/网格图形不起作用

最可能的原因是您忘记告诉R显示 图表晶格函数，如xyplot（）创建图形对象，但 不要显示它（ggplot2图形和网格也是如此） S-PLUS中的图形）。graph对象的print（）方法生成 实际显示。当您以交互方式在 命令行中，结果将自动打印，但在source（）或 在您自己的函数中，需要显式的print（）语句

---

，，…PS您确定要另存为JPEG格式吗？矢量格式是最好的，如果可能的话，但即使你需要位图格式，PNG通常是最好的数据图形（JPEG用于照片和其他渐变颜色的图片）我从来没有遇到过高分辨率PNG质量太低的问题。所有期刊都接受了我的PNG，没有任何问题。可能重复，和。

jpeg("plots/histBy%03d.jpg", quality=100)
histogram(~data[,1] | finalres, data, xlab=names[1], main=title)    
histogram(~data[,2] | finalres, data, xlab=names[2], main=title)    
histogram(~data[,3] | finalres, data, xlab=names[3], main=title)    
...
dev.off()