为什么ggplot不在R中绘制多个窗口？

我写的几个R函数有问题。我有两个绘图函数，我想写一个函数，为这两个函数创建绘图。此函数如下所示

 plotBoth = function(path = NULL){
     plotPopulationStats(path)
     plotInstructionFrequencies(path)
 }

但是，只有第二条指令被绘制，而第一条指令只绘制一个空白窗口。下面是这些函数的简化版本

 plotInstructionFrequencies = function(path = NULL){
   quartz()
   table <- read.table(path, header=TRUE);
   frame <- as.data.frame(table);
   frame$time = seq(1, length(table$noop));
   frame$mean = NULL
   frame$sd = NULL
   frame$variance = NULL
   Molten <- melt(frame, id.vars = "time");
   ggplot(Molten, aes(x = time, y = value, colour = variable)) + geom_line()
}

plotInstructionFrequencies=函数（路径=NULL）{
石英（）
表阅读常见问题7.22：

您需要打印（）ggplot或晶格图。
阅读常见问题7.22：

你需要打印（）你的ggplot或ggplot。
这样做了，我将
ggplot（…）…
更改为
print（ggplot（…）
，它成功了。每个使用lattice或ggplot的人都至少有半天的时间来学习“为什么我的plot不成功？”问题：我记得Superguru Douglas Bates在夜深人静的时候叫DeSyaAn，后者在同一个主题上的印度。这个技巧，我随函附上了<代码> GGTRAP（…）…<代码> >代码>打印（GGTRAP（…））<代码>，它工作了。每个格子或GGPUTH工作的人至少要向老的半天放松。“为什么我的情节策划不成问题呢？”我记得Superguru Douglas Bates在深夜叫迪瓦扬，后者在同一个主题上的印度。可能复制的可能的复制品。
plotPopulationStats = function(path = NULL){
    quartz()
    table <- read.table(path, header=TRUE);
    frame <- as.data.frame(table);
    frame$time = seq(1, length(table$noop));
    frame$noop = NULL
    frame$plus = NULL
        ...
    frame$store = NULL
        Molten <- melt(frame, id.vars = "time");
    ggplot(Molten, aes(x = time, y = value, colour = variable)) + geom_line();
}