Comment sélectionner parmi 4 colonnes deux consécutives avec la plage maximale et la diviser entre la plage maximale trouvée entre l'une des 4 colonnes

Je pense que cela fonctionne. Rien d'extraordinaire ici. J'ai écrit chaque différence, puis j'ai ajouté quelques calculs par ligne .

library(dplyr)
library(lubridate)

df1 %>% 
  mutate(FloorDate = floor_date(DateTime, unit = "hour")) %>% 
  left_join(df2, by = c("FloorDate" = "DateTime")) %>% 
  mutate(ConsDiff1 = abs(T5 - T15),
         ConsDiff2 = abs(T15 - T25),
         ConsDiff3 = abs(T25 - T35),
         AllDiff1 = abs(T5 - T25),
         AllDiff2 = abs(T5 - T35),
         AllDiff3 = abs(T15 - T35)) %>% 
  rowwise() %>% 
  mutate(MaxConsDiff = max(ConsDiff1, ConsDiff2, ConsDiff3),
         MaxAllDiff = max(ConsDiff1, ConsDiff2, ConsDiff3, AllDiff1, AllDiff2, AllDiff3),
         Prop_rangeT = MaxConsDiff / MaxAllDiff) %>% 
  select(DateTime, Prop_rangeT)

# A tibble: 8 x 2
  DateTime            Prop_rangeT
  <dttm>                    <dbl>
1 2016-08-01 08:01:17       0.364
2 2016-08-01 09:17:14       0.357
3 2016-08-01 10:29:31       0.377
4 2016-08-01 11:35:02       0.417
5 2016-08-01 12:22:45       0.602
6 2016-08-01 13:19:27       0.520
7 2016-08-01 14:58:17       0.592
8 2016-08-01 15:30:10       0.583

Nous pouvons utiliser fuzzy_left_join

library(tidyverse)
library(fuzzyjoin)
df1 %>%
    fuzzy_left_join(
        df2 %>%
            gather(key, val, -DateTime) %>%
            group_by(DateTime) %>%
            arrange(DateTime) %>%
            summarise(ratio = max(abs(c(0, diff(val))) / max(abs(diff(combn(x, 2)))))),
        by = "DateTime", match_fun = list(`>`)) %>%
    group_by(DateTime.x) %>%
    filter(DateTime.x - DateTime.y == min(DateTime.x - DateTime.y))
## A tibble: 8 x 3
## Groups:   DateTime.x [8]
#  DateTime.x          DateTime.y          ratio
#  <dttm>              <dttm>              <dbl>
#1 2016-08-01 08:01:17 2016-08-01 08:00:00 0.364
#2 2016-08-01 09:17:14 2016-08-01 09:00:00 0.373
#3 2016-08-01 10:29:31 2016-08-01 10:00:00 0.364
#4 2016-08-01 11:35:02 2016-08-01 11:00:00 0.391
#5 2016-08-01 12:22:45 2016-08-01 12:00:00 0.591
#6 2016-08-01 13:19:27 2016-08-01 13:00:00 0.473
#7 2016-08-01 14:58:17 2016-08-01 14:00:00 0.527
#8 2016-08-01 15:30:10 2016-08-01 15:00:00 0.509

Explication: Nous remodelons df2 de large à long, et calculons le rapport maximal de (absolu ) différence de températures à des profondeurs consécutives et différence maximale de températures mesurées à toutes les profondeurs. Le reste est une jointure floue sur DateTime , où nous ne sélectionnons que les entrées les plus proches en date pour chaque DateHeure dans df1 . P >

Commencez par trouver les colonnes qui nous intéressent pour faire le calcul maximum (en commençant par "T"). Maintenant, pour chaque ligne de ces colonnes, calculez le rapport entre la différence maximale de la valeur consécutive et la différence maximale de la valeur totale. Faites correspondre l'horodatage dans df1 et df2 et obtenez le rapport correspondant.

t_cols <- grep("^T", names(df2))


df2$ratio <- apply(df2[t_cols], 1, function(x) {
       max_consecutive <- max(-diff(x))
       new_x <- sort(x)
       max_total <- new_x[length(x)] - new_x[1]
       max_consecutive/max_total
})


df1$Prop_rangeT <- df2$ratio[match(lubridate::floor_date(df1$DateTime, "hour"), 
                                                          df2$DateTime)]


df1
#             DateTime Prop_rangeT
#1 2016-08-01 08:01:17   0.3636364
#2 2016-08-01 09:17:14   0.3565217
#3 2016-08-01 10:29:31   0.3773585
#4 2016-08-01 11:35:02   0.4174757
#5 2016-08-01 12:22:45   0.6018519
#6 2016-08-01 13:19:27   0.5200000
#7 2016-08-01 14:58:17   0.5918367
#8 2016-08-01 15:30:10   0.5833333

#Assuming that df1 and df2 fit by row 
(df1$Prop_rangeT <- apply(df2[,2:5], 1, function(x) {max(abs(diff(x)))/diff(range(x))}))
#0.3636364 0.3565217 0.3773585 0.4174757 0.6018519 0.5200000 0.5918367 0.5833333

#In case they don't fit by row matching them e.g. by Year, Month, Day and Hour
df1$Prop_rangeT <- apply(df2[,2:5], 1, function(x) {
 max(abs(diff(x)))/diff(range(x))})[match(format(df1$DateTime, "%Y%m%d%H"), format(df2$DateTime, "%Y%m%d%H"))]