r - 循环导出图失败

Question

我有以下循环：

for(planingPeriod in planingPeriods){
  png(paste(planingPeriod,".png",sep=""), width = 30, height = 2, units = 'in', res = 500)

  ggplot(data=datasetA, aes(x=as.factor(variable),y=count,fill = value)) + 
    geom_bar(position = "stack", stat = "identity", width = 1) +
    scale_fill_manual(values=c("#4ceb34","#ebd034","#eb34dc","#34ebc3","#3452eb","#eb3434"))

  dev.off()
}

它应该自动导出图。我的问题是文件已创建但它们不包含任何数据（没有任何内容的白色图片）。我没有收到任何警告/错误。当我在没有 for 循环的情况下执行代码时，会创建一个图。我做错了什么？

标签： rggplot2