使用 tidyr 或 reshape2 重塑数据框 [英] reshape a dataframe with tidyr or reshape2

问题描述

我想转换这个数据集:

  ID  v1  v2  v3  c1  c2 c3
1  1  -3 -11  -2  -6  -1 -1
2  2 -10  -4 -12 -11   4  6
3  3   4  -4  15   5   1 -3
4  4  -6   0  -6   5  -1  8
5  5  -7  12   6 -12 -11 11

input<-structure(list(ID = 1:5, v1 = c(-3, -10, 4, -6, -7), v2 = c(-11, 
-4, -4, 0, 12), v3 = c(-2, -12, 15, -6, 6), c1 = c(-6, -11, 5, 
5, -12), c2 = c(-1, 4, 1, -1, -11), c3 = c(-1, 6, -3, 8, 11)), .Names = c("ID", 
"v1", "v2", "v3", "c1", "c2", "c3"), row.names = c(NA, -5L), class = "data.frame")

给这个:

   ID   v   c T
1   1  -3  -6 1
2   2 -10 -11 1
3   3   4   5 1
4   4  -6   5 1
5   5  -7 -12 1
6   1 -11  -1 2
7   2  -4   4 2
8   3  -4   1 2
9   4   0  -1 2
10  5  12 -11 2
11  1  -2  -1 3
12  2 -12   6 3
13  3  15  -3 3
14  4  -6   8 3
15  5   6  11 3

    output<-structure(list(ID = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 
4, 5), v = c(-3, -10, 4, -6, -7, -11, -4, -4, 0, 12, -2, -12, 
15, -6, 6), c = c(-6, -11, 5, 5, -12, -1, 4, 1, -1, -11, -1, 
6, -3, 8, 11), T = c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 
3L, 3L, 3L, 3L, 3L)), .Names = c("ID", "v", "c", "T"), row.names = c(NA, 
-15L), class = "data.frame")

我想我可以用 reshape2 或 tidyr 来做到这一点.你知道我如何才能有效地做到这一点吗?

I think I can do this with reshape2 OR with tidyr. Do you know how how I can do this effectively ?

谢谢

推荐答案

使用tidyr:

library(tidyr)
input %>%
  gather(var, val, v1:c3) %>%
  separate(var, c("var", "T"), sep = 1) %>%
  spread(var, val) %>%
  arrange(T)
#   ID T   c   v
#1   1 1  -6  -3
#2   2 1 -11 -10
#3   3 1   5   4
#4   4 1   5  -6
#5   5 1 -12  -7
#6   1 2  -1 -11
#7   2 2   4  -4
#8   3 2   1  -4
#9   4 2  -1   0
#10  5 2 -11  12
#11  1 3  -1  -2
#12  2 3   6 -12
#13  3 3  -3  15
#14  4 3   8  -6
#15  5 3  11   6

这篇关于使用 tidyr 或 reshape2 重塑数据框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！