私は、次のデータフレームを持っている年と種類

Question

当たりの平均持続時間を持つテーブルを作成します。

library("lubridate") 

df = data.frame(c("AAA","BBB","AAA"), 
       c("2012","2013","2012"), 
       c("2012-12-30 08:01:01","2013-12-30 09:05:02","2012-12-30 08:08:01"), 
       c("2012-12-30 09:01:00","2013-12-30 10:15:00","2012-12-30 08:11:01")) 
colnames(df) = c("type","year","start","end") 

df$duration = difftime(ymd_hms(df$end), ymd_hms(df$start),units="mins") 

今、私は次のようになりますように、平均期間を持つテーブルを作成したい：

 2012 2013 
AAA 31.49 0.00 
BBB 0.00 69.97 

このようなテーブルを作成するために使用する関数はどれですか？

更新：？

これは私が試したものですが、どのように私はyearを追加することができます。ここでは

mean_duration_per_type_year = aggregate(duration~type, 
             data=df, 
             mean) 

Answer 1

がreshape2パッケージを使用して、あなたが何ができるかです：

library(reshape2) 
temp <- aggregate(df$duration, by = list(type = df$type, year = df$year), mean) 
final <- dcast(temp, type~year) 
final[is.na(final)] <- 0 # optional : replace the NA values with 0 


final 
# type  2012  2013 
# 1 AAA 31.49167 0.00000 
# 2 BBB 0.00000 69.96667 

タイプをrownamesにする場合は、次の行を追加できます：

rownames(final) <- final$type 
final$type <- NULL 

final 
#   2012  2013 
# AAA 31.49167 0.00000 
# BBB 0.00000 69.96667