我有一个看起来像这样的数据框
+---------+--------+--------+--------+-------+
| ID | week1_t| week1_a| week2_t|week2_a|
+---------+--------+--------+--------+-------+
| 1 | 12 | 22 | 17 | 4 |
| 1 | 15 | 32 | 18 | 5 |
| 1 | 24 | 12 | 29 | 6 |
| 2 | 45 | 11 | 19 | 8 |
| 2 | 23 | 33 | 20 | 10 |
+---------+--------+--------+--------+-------+
有 48 列（第 1 - 24 周），带有“t”和“a”后缀。我想将所有周列合并为一个“周”列，如下所示：
+---------+--------+--------+--------
| ID | week | t | a |
+---------+--------+--------+--------
| 1 | 1 | 22 | 17 |
| 1 | 2 | 32 | 18 |
| 1 | 3 | 12 | 19 |
| 1 | 5 | 33 | 20 |
+---------+--------+--------+-------
我该如何在 R 中进行这种转换？我想不出在多个 if 语句和 for 循环之外执行此操作的方法。
Data
dd <- read.table(header = TRUE, text = "ID week1_t week1_a week2_t week2_a
1 12 22 17 4
1 15 32 18 5
1 24 12 29 6
2 45 11 19 8
2 23 33 20 10")
您可以使用data.table melt:
library(data.table)
setDT(dd)
melt(dd, id = 1, measure=patterns("_t$", "_a$"), value.name = c("t", "a"),
variable.name = "week")
ID week t a
1: 1 1 12 22
2: 1 1 15 32
3: 1 1 24 12
4: 2 1 45 11
5: 2 1 23 33
6: 1 2 17 4
7: 1 2 18 5
8: 1 2 29 6
9: 2 2 19 8
10: 2 2 20 10
正如您可以阅读的?melt:
measure.vars 现在还接受字符/整数向量列表
熔入多列 - 即熔入多个值
同时列。使用函数模式提供多种
方便的图案。请参阅示例部分
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
