lapply，從數據框中指定和繪製多個變量

Question

在功能語句中，我沒有將lapply，substitute，print，plot和list組合起來。有人可以指導我修改此代碼嗎？我想：

1. 自動化在DF
2. 數據幀與第一場繪製一些，但不是所有的字段指定字段繪製
3. 結果寫入一個文件

這些字段是數字。謝謝。

brg<-as.data.frame(sqlFetch(channel,"Bearing"))    
is.data.frame(brg)            

varlist<-names(brg)[c(6,8,10,12)]        
varlist              
pdf(file="brg%d.pdf")           
figures<-lapply(varlist,function(x) {       
print(plot(substitute(brg[c(1,i)], (list(i = as.name(x)))))) 
}) 

更新：感謝您的意見。下面是該代碼與軸標貼的兩個工作版本（DF從SQL Server讀取的書面）：

 #vers. 1 
    brg<-as.data.frame(sqlFetch(channel,"Bearing")) 
    is.data.frame(brg) 
    dim(brg) 
    head(brg) 
    names(brg)<-tolower(names(brg)) 
    names(brg) 
    varlist<-names(brg)[c(6,8,10,12)] 
    varlist 
    pdf(file="brgd.pdf") 
    for (x in varlist) plot(brg[,1],brg[,x], xlab=names(brg[1]),ylab=as.name    (x))   
    dev.off() 

    #vers. 2 
    brg<-as.data.frame(sqlFetch(channel,"Bearing")) 
    is.data.frame(brg) 
    dim(brg) 
    head(brg) 
    names(brg)<-tolower(names(brg)) 
    names(brg) 
    varlist<-names(brg)[c(6,8,10,12)] 
    varlist 
    pdf(file="brg1.pdf") 
    figures<-lapply(varlist,function(x) { 

    (plot(brg[,1],brg[,x], ylab=as.name(x))) 
    }) 
    dev.off()             

Answer 1

這實在是不清楚你想要做什麼，但我還是對你的代碼的一些意見。我認爲在這裏你試圖把一個簡單的任務複雜化，繪製一些變量並將繪圖保存在一個文件中。

1. 沒有必要使用substitute（它會給符號），你可以用列名的子集data.frame。
2. 此處不需要使用lapply，因爲您不保存結果，只是想重複繪圖。
3. 爲什麼在文件名中使用％。

4. 繪圖後必須關閉設備才能解鎖設備。

   brg<- data.frame(a=rnorm(10),b= rnorm(10), ## a reproducible data frame 
          c=rnorm(10)) 
   varlist<-names(brg)[c(1,2)] 
   pdf(file="brgd.pdf")             
   for (x in varlist) plot(brg[,1],brg[x])   ## the substitue would give brg[c(1,a)] !! 
   dev.off()