ユーザー定義関数の引数をdata.tableの列名にするにはどうすればいいですか？

Question

関数の側でdata.tableの列名に引数を渡すにはどうすればよいですか？ たとえば、 'hours'と 'location'という列を持つdata1というデータがあります。出力では、外れ値を場所別に検索し、「時間」で名前を付けることにします。私はsubstitute（y）などを使用しようとしました。出力は常に列名として 'y'を使用します。誰か助けてくれますか？ありがとうございました。

mf<-function(data, y){ 
newy<-as.name(deparse(substitute(y))) 
output<-data[,.(y=boxplot.stats(eval(newy))$out),by=.(location)] 
return(output) 
} 
mf(data=data1,y=hours) 

Answer 1

カラムを選択するための文字値をとる関数を記述することをお勧めします。この場合、あなたの関数のように書き換えることができます：boxplot.statsの出力をサブセットする[を使用することにより

mf <- function(data, y){ 
    output <- data[, boxplot.stats(get(y))['out'], by = .(location)] 
    setnames(output, 'out', y) 
    return(output) 
} 

、一つの要素（'out'）名前付きリストが返されます。したがってoutputには、2つの列、locationとoutがあります。それでに与えられたものになるようにoutを変更するだけです。

例：あなたはそれから何かを得ることができる場合

set.seed(100) 
data1 <- data.table(
    location = state.name, 
    hours = rpois(1000, 12) 
) 
mf(data = data1, y = 'hours') 
#   location hours 
# 1:  Delaware 25 
# 2:  Georgia 21 
# 3:   Idaho  4 
# 4: Massachusetts  5 
# 5:  Missouri  7 
# 6: South Carolina  5 
# 7: South Carolina  6 
# 8: South Dakota 20 
# 9:   Texas  5 
# 10:   Utah 22 

非標準な評価は難しいと努力だけの価値があります。 data.tableは、舞台裏で最適化に使用します。 tidyverseパッケージは、データベース内での処理を可能にするためにこのパッケージを使用します。メリットがない場合（引用符をいくつか入力する必要はありません）、コストがかかります。