for循环中的tiff和ggplot R函数存在问题

Question

] 2

我无法在tiff()循环中使用R for函数获得一批图像。

我的x86_64-w64-mingw32/x64 (64-bit)平台已安装Windows 8.1，而RStudio Version 1.0.143则已安装R version 3.6.0 (2019-04-26) -- "Planting of a Tree"。我试图通过将代码放入tiff循环中来获取一批for图像。不幸的是，这导致大量的文件损坏（在附件中）。但是，如果我在RStudio控制台中键入完全相同的代码，则会得到正常（有效）的图像。

#Fragment of the script
    for (i in 1:nrow(BH))
    {
    ...
    tiff( paste(pos$rs[1],"tiff",sep = '.'))
    ggplot(df_g_,aes(x=factor(g),fill=factor(O)))+geom_bar(stat="count")+xlab("")+labs(fill='')
    dev.off()
    }

#If i perform the following code in console after script execution i got a valid image

    tiff( paste(pos$rs[1],"tiff",sep = '.'))
    ggplot(df_g_,aes(x=factor(g),fill=factor(O)))+geom_bar(stat="count")+xlab("")+labs(fill='')
    dev.off()

Answer 1

解决方案是在循环中将ggplot函数与基础print函数一起包围：

print(ggplot(df_g_,aes(x=factor(g),fill=factor(O)))+geom_bar(stat="count")+xlab("")+labs(fill=''))

因此，我使用了另一篇文章中的解决方案： enter link description here