如何在R中使用循环函数填充表？

我有一个csv表，第1列有项目编号（列名：items），第2列到第26列有变量（列标题“B”->“Z”）

项目A B C。。。Z 2004年6月1日2010年10月。。。。2005年3月 2012年9月2日2009年12月 2007年4月3日至2011年8月

我需要创建一个新表，其中列标题为年份（“2004年”、“2005年”、“2006年”、“2007年”、“2012年”）

该行应包含行值，如“A”、“B”或“C”。。。。。或者“Z”

最好的方法是什么

我的新桌子看起来应该像

项目2004 2005 2006。。。2012 1 A C。。。。Z 2 B。。。。

---

3 A Z

我们可以

收集

为“长”格式，在“val”列上进行处理，然后

排列

library(dplyr)
library(tidyr)
gather(df1, key, val, -items) %>%
   mutate(val = str_remove(val, "\\D+")) %>%
   spread(val, key)