グループ化されたデータフレームでクラスタリング機能をループすることができますか？

Question

私は車両用のETAを含むデータフレームを持っています。データには1つの（実際の）到着のETAが多数含まれており、1つの到着に対応する必要があるETAをグループ化したいと考えています。私はこのクラスタリングを行い、カスタム関数を書いた

vehicle  eta  ... cluster 
--------- ------------ ----- --------- 
    car_1  01-11-2017 ...   1 
    car_1  02-11-2017 ...   1 
    car_1  15-11-2017 ...   2 
    horse_3 05-11-2017 ...   1 
    horse_3 12-11-2017 ...   2 
    horse_3 13-11-2017 ...   2 

：

私のデータは私の望ましい結果としてclusterで、次のようになります。関数の入力は1台の車両の行で、クラスタインデックスの配列を返します。たとえば、私のサンプルデータの行1~3を渡すと、c(1,1,2)が出力されます。だから、私がする必要があるのは、データセット内のすべての車両をサイクルして機能を適用することだけです。しかし、それは私が立ち往生しているところです。

私のカスタムクラスタリング機能として cluster_etasで

、私はこれを行うことができます知っている：

# Initialize an empty column 
data$cluster <- 0 

# Loop over all vehicles and perform clustering 
for (i in unique(data$vehicle)) { 
    filter_vector <- data$vehicle == i 
    data$cluster[filter_vector] <- cluster_etas(data[filter_vector,]) 
} 

しかし、私は、充填機能のapply -kindとこのようになり、よりスマートな解決策がある疑いがあります空白：

data$cluster <- _____(data = data, by = vehicle, function = cluster_etas) 

この種の操作を実行する機能はありますか？それはどうなりますか？

Answer 1

は、私は実用的なソリューションのためのを発見しました問題はplyrパッケージのddply機能を使用しています。私のカスタム関数を変更する必要がありました。以前は、カスタム関数が引数としてデータフレームを取り、必要な列を抽出しましたが、今度はそれらの列を引数として直接取るようになりました（とにかくより一般的な解決策になります）。

data <- plyr::ddply(data, "vehicle", transform, 
        cluster = cluster_etas(eta, travel_time, ...)) 

Answer 2

tapply：
は引数Explaningベクトル

str(tapply) 
#function (X, INDEX, FUN = NULL, ..., simplify = TRUE) 

のサブセット上で関数を適用する - 古本：
Xをベクトル
INDEXは因子または要因のリスト（または何かの強制可能です因子に）
FUNは、適用される関数です。
には他の引数がありますしたがって、S渡されるFUN

、私は解決策が tapplyのようなものであるべきと考えている（データ$イータ、データ$車、FUN = ..your機能...）