создайте функцию для barchart и вызовите ее в цикле и сохраните все графики

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, даже если я вошел " средний "in lablex and" master id "in 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() 
}