DF每列的散点图：生成随机数量的文件

Question

我目前正在尝试为另一列的数据框的每一列创建一个散点图，并将其放入png文件中。

最大的问题是，在A时刻和B时刻使用相同的数据帧运行脚本不会创建相同数量的文件：我最终可能会有50个文件或80个...这是随机的，我可以＆＃ 39;解释一下......

控制台中没有打印错误......

我希望绘制所有列，而不仅仅是它们的随机子集。

有谁知道这个问题可能是什么原因？以及如何解决？

以下是代码：

data_analysis_num <- function(variete, centre, dataframe, column_name)
  {

  column <- DataF[,column_name]
  name_folder <- paste('Corr_centre_', centre,'_variete_', variete, sep='')
  system(paste('mkdir ', name_folder, sep=''))
  count <- 0

  for(i in 1:length(DataF))
  {
    count <- count + 1
    name <- compt
    png(file = paste('/home/R/Fusion/',name_folder,'/',name, sep = ''))
    plot(DataF[,i] ~ column)
    dev.off()
  }  
}

data_analysis_num('all', Centre_4, DF, 'Column_name')

我认为这可能是由于我的数据，所以我尝试将plot(DataF[,i] ~ column)替换为column ~ column)（列是受信任的列）并且它仍然赢了＆＃39 ;按预期工作......

感谢您的帮助！