为条形图创建一个函数并循环调用它并保存所有图形

Question

我需要帮助在一个循环中绘制多个文件。我创建了一个函数来为输入文件包含的 5 列中的两列中的两列绘制这些不同的文件，然后调用该函数

bar.plot <- function( col_name1, col_name2,input_file, lable1, lable2) { 
  
  barplot(col_name1, names.arg = col_name2, xlab = "label1", ylab = "lable2",
          col= "blue", main = "bar plot of average", border = "red")

  box()
    
}
    
#call the function for 10 files
i <- 1
    
for (i in 1:10) {

  filename <- paste("C:/Users/admin/GoogleDrive/Vidya/R/document/Group_", 
                    i, ".csv", sep = "")
  group <- read.csv(filename)
  
  lablex <- "average"
  labley <- "master id"
      
  bar.plot(group$total_pause_time, group$employee_id, group, lablex, labley)
    
}

输出图将xlable 显示为label1，ylable 显示为label2，即使我在lablex 中输入了“average”，在中输入了“ma​​ster id” labley。 还告诉我如何用 10 个不同的名称保存这些不同的图，例如plot1.jpg 到 plot10.jpg

Answer 1

这将创建一个包含十个单独地块的 pdf 文件

    bar.plot <- function( col_name1, col_name2,input_file, lable1, lable2)
{ 
  barplot(col_name1,names.arg = col_name2,xlab=label1,ylab=label2,
col= "blue",main = "bar plot of average",border = "red")
  box()
  }

#call the function for 10 files
label1 <- "average"
label2 <- "master id" 

setwd("C:/Users/admin/GoogleDrive/Vidya/R/document/Group_/")
filename <- list.files(pattern = ".csv")
myfiles <- lapply(filename, read.csv)

  for (i in myfiles)
    {
    group    <- data.frame(myfiles[i])
    jpeg(paste(i,".jpg"))
  bar.plot(group$total_pause_time,group$employee_id,label1,label2)
  dev.off()
  }

Answer 2

试试这个：

bar.plot <- function( col_name1, col_name2,input_file, lable1, lable2) {
barplot(col_name1,names.arg = col_name2, xlab = lable1, ylab = lable2,
col= "blue",main = "bar plot of average",border = "red")
box()
}

#call the function for 10 files
for (i in 1:10){
filename <-paste("C:/Users/admin/GoogleDrive/Vidya/R/document/Group_",i,".csv",sep = "")
    group    <- read.csv(filename)
lable1 <- "average"
lable2 <- "master id"
bar.plot(group$total_pause_time,group$employee_id, group, lable1, lable2)
dev.copy(jpg,paste("C:/Users/admin/GoogleDrive/Vidya/R/document/plot",i,".jpg)
dev.off()
}