爲條形圖創建一個函數並在循環中調用它並保存所有圖形

Question

我需要幫助來在一個循環中對多個文件進行barplot。我創建了一個功能barplot只有兩列，這些不同的文件從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爲lable2，即使我已經進入了「 average「in lablex and」master id「in labley。 也告訴我如何用10個不同的名字保存這些不同的地塊，例如plot1.jpg到plot10.jpg

Answer 1

這將創建十個單獨地塊

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() 
}