df_meas$Month <- as.Date(cut(df_meas$Time, breaks="month")) # Monthly value monthly_Value <- aggregate(df_meas$Value ~ df_meas$Month, data=df_meas, median) # mean names(monthly_Value) <- c("Month","Value")