どのように複数のプロットコード

Question

を製造する際に、ファイルにラベルを追加する私は複数のプロットを生成し、次のコードを持って、それぞれ別々のPDFファイル内

myplot <-function(ind,dfList) { 
dat <- dfList[[ind]] 
    detects <- as.numeric(dat$Result2[dat$cens== 0]) 
    pdf(file=paste("Desktop/qqplot_",ind,".pdf",sep = "")) 
    qqnorm(log(detects), ylab="Ln of uncensored data in ppm", main="Q-Q plot", pch=16) 
    qqline(log(detects)) 
      dev.off() 
      } 

Plots <- lapply(1:3, myplot , dfList = mydata) 

質問1：このコードは3 pdfファイルを生成します。ファイルのラベルは1、2、3です。各ファイルにラベルを付けるコードをプロットX、プロットY、プロットZに挿入するにはどうすればよいですか？

質問2：myplot関数では、プロットのタイトルはQQプロットタイトルをファイルの名前に対応させて変更したいと思います。したがって、各プロットのタイトルはプロットX、プロットY、プロットZでなければなりません。

Answer 1

ダミーデータがないためにテストされませんが、動作するはずです。

myplot <- function(ind,dfList) { 
    # Add a vector of labels 
    # then use index at will to build plot and title strings etc 
    labels <- c("X", "Y", "Z") 
    myfilename <- paste("Desktop/qqplot_",labels[ind],".pdf",sep = "") 
    mytitle <- paste("Plot ",labels[ind],sep = "") 

    dat <- dfList[[ind]] 
    detects <- as.numeric(dat$Result2[dat$cens== 0]) 
    pdf(file=myfilename) 
     qqnorm(log(detects), ylab="Ln of uncensored data in ppm", main=mytitle, pch=16) 
     qqline(log(detects)) 
    dev.off() 
} 

Plots <- lapply(1:3, myplot , dfList = mydata)