Spread and pivot over multiple columns

spread-pivot.R

library(tidyverse)
test <- crossing(
  teamid = c(1, 2, 3),
  action = c("a", "b", "c")
)

test <- test %>%
  group_by(action) %>%
  mutate(
    day30 = c(10, 20, 30),
    day60 = c(15, 25, 35),
    day90 = c(20, 30, 40)
  ) %>%
  ungroup()
test

test %>%
  gather(days, count, day30:day90) %>%
  unite(temp, days, action) %>%
  spread(temp, count)


test %>%
  pivot_longer(day30:day90, names_to = "days")


test %>%
  pivot_longer(day30:day90, names_to = "days") %>%
  pivot_wider(names_from = c(days, action))