r - 非常规数据帧整形

Question

我正在尝试 reshape 表格

col1| col2|col3|id
v1  | v2  | v3 |1
v2  | v1  | v3 |2

到

col1|col2|id
v1  | v2 | 1
v2  | v3 | 1
v2  | v1 | 2
v1  | v3 | 2

基本上为每个 id 创建一对以下列。

抱歉标题不清楚，但不确定如何描述我正在尝试做的事情。

Answer 1

对于提交的案例:

library(dplyr)
bind_rows(
    select(df, -col3),
    select(df,  col1=col2, col2=col3, id)
)

对于更多列，假设 id是最后一列:

library(dplyr)

NcolsToReduce <- ncol(df) - 2

lapply(1:NcolsToReduce, function(i){
  x <- select(df, i, i+1, id)
  names(x) <- c("col1", "col2", "id")
  x
  }) %>% bind_rows()

我认为那行得通。