重组数据框R-在一列中收集年份

我有一个像这样的大数据框架：

位置 类型 2005 2006 2007 宣判 女性 学院 宣判 女性 学院 宣判 女性 学院 巴黎 1. 对 不 对 不 不 对 不 对 不 巴黎 2. 不 不 不 对 不 对 不 不 对 巴黎 3. 不 对 不 对 不 对 对 不 对 马德里 1. 对 不 不 不 对 不 不 对 不 马德里 2. 不 对 不 不 对 不 对 不 对 迈阿密 1. 对 不 对 对 不 对 对 不 对

---

我试着复制你的例子：

test <- structure(list(location = c(NA, "Paris", "Paris", "Paris", "Madrid", 
"Madrid", "Miami"), type = c(NA, 1, 2, 3, 1, 2, 1), `2005...3` = c("Sentenced", 
"Yes", "No", "No", "Yes", "No", "Yes"), `2005...4` = c("Female", 
"No", "No", "Yes", "No", "Yes", "No"), `2005...5` = c("College", 
"Yes", "No", "No", "No", "No", "Yes"), `2006...6` = c("Sentenced", 
"No", "Yes", "Yes", "No", "No", "Yes"), `2006...7` = c("Female", 
"No", "No", "No", "Yes", "Yes", "No"), `2006...8` = c("College", 
"Yes", "Yes", "Yes", "No", "No", "Yes"), `2007...9` = c("Sentenced", 
"No", "No", "Yes", "No", "Yes", "Yes"), `2007...10` = c("Female", 
"Yes", "No", "No", "Yes", "No", "No"), `2007...11` = c("College", 
"No", "Yes", "Yes", "No", "Yes", "Yes")), row.names = c(NA, -7L
 ), class = c("tbl_df", "tbl", "data.frame"))

---

如果你提供了一个最少的可重复的例子，你就可以最大限度地提高你得到有用答案的机会。也许会有帮助。特别是，使用
dput（）
发布数据，而不是图像。
names(test) <- paste(names(test),test[1,],sep = "_") 
test <- test[-1,]

test <- gather(test,"key","value",3:11)
test <- test %>% separate(key,c("Year","Key"),"_")      
test <- test %>% separate(Year,c("Year","Garbage"),"[.]")
test <- test %>% select(-Garbage)
test <- test %>% spread(Key,value)