pairwise column differences

pairwise_col_diffs.R

library(tidyverse)
library(tidybayes)

d <- tibble(sensor_a = rnorm(100, 5, 2),
            sensor_b = rnorm(100, 1, 1),
            sensor_c = rnorm(100, 0, 3),
            time = 1:100)

# pivot longer so all our sensor names are in one column, and readings in another
d <- d %>% 
  pivot_longer(starts_with("sensor"), names_to = "sensor", values_to = "reading") 

d

# now we group by time, because we want comparisons at each time point. Then we "compare levels" of our readings by each sensor
d_diff <- d %>% 
  group_by(time) %>% 
  compare_levels(variable = reading, by = sensor)

# now we've got all these differences!
d_diff

d_diff %>% 
  ggplot(aes(x = time, y = reading)) +
  geom_line() +
  facet_wrap(vars(sensor), scales = "free_y")