r - 将值与列名组合为新列

Question

我喜欢将我的值与列名结合起来（参见当前集和所需集）：

当前设置 = - ncol = 9 - nrow = 26814

我想将值添加SheetNaam到列XYEAR以扩展我的列并减少我的行，而不会丢失数据或“NA”。这在R中可能吗？

文字难以解释，希望有人能理解我的解释。

Answer 1

我们可以试试gatherand spread。 'X' 后跟数字gather的列，'SheetNaam'，'key' 进入单个列并返回'wide'格式starts_withunitespread

library(tidyverse)
gather(df1, key, val, matches("^X\\d+$"), na.rm = TRUE) %>%
     unite(SheetNaam, SheetNaam, key, sep = "") %>%
     group_by(SheetNaam) %>%
     mutate(rn = row_number()) %>%
     spread(SheetNaam, val)