如何將參數輸入傳遞給R中的自定義函數？

Question

我做了一個自定義plottest功能如下：

plottest<-function(dataframe, var1){ 

    ggplot(dataframe)+geom_point(aes(x=T, y=var1)) 

} 

我希望我能傳遞一個數據幀和列名，所以我可以重複的情節不同列。

df <- data.frame(T=(1:10), y1=(21:30), y2=(51:60), y3 = (61:70)) 

但是當我做：

library(ggplot2)  
plottest(df, y1) 

錯誤信息顯示出來說：對象 'VAR1' 未找到。

我該怎麼做才能做到這一點？

Answer 1

嘗試：

df <- data.frame(T=(1:10), y1=(21:30), y2=(51:60), y3 = (61:70)) 

plottest<-function(dataframe, var1){ 
    ggplot(dataframe, aes_string(x='T', y=var1))+geom_point() 
} 

plottest(df, 'y1') 

這將是更清潔修復橫座標的函數參數爲默認參數。

Answer 2

可以使你原有的功能的工作與簡單的添加的行（和我增加了ylab（）調用，以防止劇情從總是使用「Y」爲ylab。

plottest<-function(dataframe, var1){ 
    y <- substitute(var1) 
    ggplot(dataframe)+geom_point(aes(x=T, y=y)) + ylab(y) 
} 
library(ggplot2)  
plottest(df, y1)