r - 集計に適用された関数 + group_by が正しく機能しない

Question

私は自分のデータを抽出します

fluo <- read.csv("data/ctd_SOMLIT.csv", sep=";", stringsAsFactors=FALSE)

元の日付に基づく日、月、年の 3 つの列で表示します: Y - m - d

fluo$day <- day(as.POSIXlt(fluo$DATE, format = "%Y-%m-%d"))
fluo$month <- month(as.POSIXlt(fluo$DATE, format = "%Y-%m-%d"))
fluo$year <- year(as.POSIXlt(fluo$DATE, format = "%Y-%m-%d"))

これは私のdata_frameの一部です:

次に、関数を適用するために、summary と group_by を実行します。

prof_DCM = fluo[max(fluo$FLUORESCENCE..Fluorescence.),2] 

=> 各月、各年で測定された FLUORESCENCE の最大値の深度が必要です。

mean_fluo <- summarise(group_by(fluo, month, year), 
                       prof_DCM = fluo[max(fluo$FLUORESCENCE..Fluorescence.),2])
mean_fluo <- arrange(mean_fluo, year, month)
View(mean_fluo)

しかし、それは機能していません... prof_DCM の値は、data_frame の列 3 に沿って同じままです。