应用于 summarize + group_by 的函数无法正常工作

Question

我提取我的数据

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

我根据原来的日期分三列显示：日、月、年：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:

然后，我做总结和 group_by 以便应用函数：

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

=> 我想要每个月、每年测量的荧光最大值的深度。

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 列仍然相同：

Answer 1

也许试试下面的代码。

library(dplyr)
mean_fluo <- fluo %>%
group_by(month,year) %>%
filter(FLUORESCENCE..Fluorescence. == max(FLUORESCENCE..Fluorescence.)) %>%
arrange(year,month)

View(mean_fluo)

您可以 select 您想要保留的变量 'select'

mean_fluo <- fluo %>%
group_by(month,year) %>%
filter(FLUORESCENCE..Fluorescence. == max(FLUORESCENCE..Fluorescence.)) %>%
arrange(year,month)%>%
select(c(month,year,PROFONDEUR))

应用于 summarize + group_by 的函数无法正常工作

function applied to summarise + group_by doesn't work correctly

r

function

group-by

summarize