将列名中具有多个键的数据框从宽变为长

Question

我知道已经有很多重塑页面，但我没有找到我想要的，而且我的问题有点独特。

我有以下数据集：

df <- data.frame(Year=rep(1:4,4),id=rep(1:4,each=4),key1equals1.key2equals1.key3equals1=1,key1equals2.key2equals1.key3equals1=2,key1equals1.key2equals2.key3equals2=3,key1equals2.key2equals1.key3equals2=4)

本质上，有五个key：Year、id、key1、key2、key3

key1、key2、key3的值都包含在列名中。

我想关注数据集：

Year id key1 key2 key3 value

如果可能的话，我想使用base R。

Answer 1

从 Hadley 的回答 here 中汲取灵感：

library(tidyr)

df %>%
  gather(key, value, -Year, -id) %>%
  extract(key, c("key1", "key2", "key3"), 'key1equals([0-9])\\.key2equals([0-9])\\.key3equals([0-9])')