从水平到垂直数据框重塑，连接和创建新列 [英] reshape, concatenate and create new column from horizontal to verical dataframe

问题描述

我有一个很大的数据集，其中一些显示在这里

I have large dataset with some of it shown here

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_postHR_pre
2. 在发布前列与发布后列
3. 连接列标题，例如HR_pre vs.post(如下面的屏幕快照所示).

任何建议将不胜感激.

推荐答案

我们可以使用 tidyr

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

这篇关于从水平到垂直数据框重塑，连接和创建新列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！