將data.framework列名傳遞給函數(shù)我試圖編寫一個(gè)函數(shù)來接受data.framework(x)和column從那里。函數(shù)在x上執(zhí)行一些計(jì)算，然后返回另一個(gè)data.framework。我堅(jiān)持使用最佳實(shí)踐方法將列名傳遞給函數(shù)。兩個(gè)極小例子fun1和fun2下面生成所需的結(jié)果，能夠在x$column，使用max()舉個(gè)例子。然而，兩者都依賴于表面上(至少對我來說)不雅的東西。打電話給substitute()也有可能eval()需要將列名作為字符向量傳遞。fun1 <- function(x, column){
do.call("max", list(substitute(x[a], list(a = column))))}fun2 <- function(x, column){
max(eval((substitute(x[a], list(a = column)))))}df <- data.frame(B = rnorm(10))fun1(df, "B")fun2(df, "B")我希望能夠?qū)⑦@個(gè)函數(shù)稱為fun(df, B)例如。我已考慮但尚未嘗試的其他選擇：經(jīng)過，穿過column作為列號的整數(shù)。我想這樣可以避免substitute()..理想情況下，該函數(shù)可以接受任何一個(gè)。with(x, get(column))，但是，即使它有效，我認(rèn)為這仍然需要substitute利用formula()和match.call()這兩個(gè)我都沒有太多的經(jīng)驗(yàn)。子問題*是do.call()優(yōu)先于eval()?
3 回答
搖曳的薔薇
TA貢獻(xiàn)1793條經(jīng)驗(yàn) 獲得超6個(gè)贊
df <- data.frame(A=1:10, B=2:11, C=3:12)fun1 <- function(x, column){
max(x[,column])}fun1(df, "B")fun1(df, c("B","A"))fun1 <- function(x, column, fn) {
fn(x[,column])}fun1(df, "B", max)[[
df <- data.frame(A=1:10, B=2:11, C=3:12)fun1 <- function(x, column){
max(x[[column]])}fun1(df, "B")
慕尼黑8549860
TA貢獻(xiàn)1818條經(jīng)驗(yàn) 獲得超11個(gè)贊
get.max <- function(column,data=NULL){
column<-eval(substitute(column),data, parent.frame())
max(column)}> get.max(mpg,mtcars)[1] 33.9> get.max(c(1,2,3,4,5))[1] 5
> get.max(1/mpg,mtcars)[1] 0.09615385
- 3 回答
- 0 關(guān)注
- 404 瀏覽
添加回答
舉報(bào)
0/150
提交
取消