如何将多个 x, y 数据框更改为单个 x y 数据框？ [复制]答案

【问题标题】：How to change a multiple x, y dataframe to a single x y one? [duplicate]如何将多个 x, y 数据框更改为单个 x y 数据框？ [复制]
【发布时间】：2018-02-24 16:14:56
【问题描述】：

我有一个名为 a 的数据框，其列名是 x1,y1,x2,y2,x3,y3。以及如何在不使用循环的情况下将其重塑为列名为 x,y 的数据框，最好使用 tidyr::gather 和 tidyr::spread。

即

a<-structure(list(X1 = c(0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 0L, 0L), 
Y1 = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 0L, 0L, 0L), X2 = 0:9, 
Y2 = c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 8L, 7L), X3 = c(0L, 
1L, 2L, 3L, 4L, 5L, 6L, 7L, 0L, 0L), Y3 = c(3L, 4L, 5L, 6L, 
7L, 8L, 9L, 8L, 0L, 0L)), .Names = c("X1", "Y1", "X2", "Y2", 
"X3", "Y3"), class = "data.frame", row.names = c("1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10"))

想成为：

structure(list(x = c(0, 1, 2, 3, 4, 5, 6, 0, 0, 0, 0, 1, 2, 3, 
4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 7, 0, 0), y = c(1, 2, 
3, 4, 5, 6, 7, 0, 0, 0, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 3, 4, 5, 
6, 7, 8, 9, 8, 0, 0)), .Names = c("x", "y"), row.names = c(NA, 
-30L), class = "data.frame")

【问题讨论】：

标签： r reshape tidyr

【解决方案1】：

试试这个：

reshape(data = a,direction = "long",varying = list(c(1,3,5),c(2,4,6)),v.names = c("x","y"))[,-c(1,4)]

【讨论】：

【解决方案2】：

使用dplyr 和tidyr 的解决方案。

library(dplyr)
library(tidyr)

a2 <- a %>%
  mutate(ID = 1:n()) %>%
  gather(Column, Value, -ID) %>%
  separate(Column, into = c("Letter", "Number"), sep = 1) %>%
  spread(Letter, Value) %>%
  arrange(Number, ID) %>%
  select(x = X, y = Y)
a2
#    x y
# 1  0 1
# 2  1 2
# 3  2 3
# 4  3 4
# 5  4 5
# 6  5 6
# 7  6 7
# 8  0 0
# 9  0 0
# 10 0 0
# 11 0 2
# 12 1 3
# 13 2 4
# 14 3 5
# 15 4 6
# 16 5 7
# 17 6 8
# 18 7 9
# 19 8 8
# 20 9 7
# 21 0 3
# 22 1 4
# 23 2 5
# 24 3 6
# 25 4 7
# 26 5 8
# 27 6 9
# 28 7 8
# 29 0 0
# 30 0 0

【讨论】：