изменить форму, объединить и создать новый столбец из горизонтального в вертикальный фрейм данных

Question

У меня большой набор данных, некоторые из которых показаны здесь

data<-read.table(text="SR_ID   GCS_pre_desc    EDA_pre_desc    GCS_post_desc   EDA_post_desc   HR_pre  SBP_pre DBP_pre HR_post SBP_post    DBP_post
1.00    5.800   5.240   1.400   5.500   88  127 57  83  143 83
2.00    3.300   5.580   5.300   6.020   57  153 63  69  108 51
3.00    1.300   5.700   3.700   7.100   77  121 64  81  98  44
4.00    10.400  3.370   9.000   3.030   54  121 39  69  145 65", sep="", header=T)

Я хочу изменить свои данные так, чтобы

1. поместил одинаковые заголовки столбцов ниже друг друга, например, HR_post ниже HR_pre
2. Создать новый столбец Pre vs. post
3. Объединить заголовок столбца, например, HR_pre vs.post (как показано на скриншоте ниже).

Любые советы будут с благодарностью .

Answer 1

Мы можем использовать pivot_longer от tidyr

library(dplyr)
library(tidyr)
data %>% 
   pivot_longer(cols = -SR_ID, names_to = c(".value", "prevspost"), 
           names_pattern = "(.*)_(pre|post.*)")