重新整形由变量后缀分组的从宽到长格式的数据集

Question

与此帖有类似但不同：Reshaping data.frame from wide to long format

我有一个带有唯一ID变量的宽数据集，以及带有4位数年份后缀的所有其他变量：

ID MI1995 FRAC1995 MI1996 FRAC1996
1     2         3       2       4
7     3         10      12      1
10    1         2       1       1

我想要一个按4位变量后缀分组的长数据集。因此每个ID应该每年有1行4位数后缀：

ID YEAR   MI  FRAC
1   1995   2   3
1   1996   2   4
7   1995   3   10
7   1996   12  1
10  1995   1   2
10  1996   1   1

基础/通用解决方案是首选。

这里的主要问题是，如何在重塑中为“变化”参数建立自动切割点，以及如何从变量后缀提供“timevar”参数？

Answer 1

使用reshape我们可以用sep=""设置切点。

reshape(d, idvar="ID", varying=2:5, timevar="YEAR", sep="", direction="long")
#         ID YEAR MI FRAC
# 1.1995   1 1995  2    3
# 7.1995   7 1995  3   10
# 10.1995 10 1995  1    2
# 1.1996   1 1996  2    4
# 7.1996   7 1996 12    1
# 10.1996 10 1996  1    1

数据

d <- structure(list(ID = c(1L, 7L, 10L), MI_1995 = c(2L, 3L, 1L),
                    FRAC_1995 = c(3L, 10L, 2L), MI_1996 = c(2L, 12L, 1L),
                    FRAC_1996 = c(4L, 1L, 1L)), row.names = c(NA, -3L),
               class = "data.frame")