如何针对不同的名称按日期提取和子集

Question

不再需要提问，因此已被删除

Answer 1

假设您的数据存储在df中，您可以先用日期标记列名称，例如：

names(df)[-1] <- as.character(as.Date("2015-02-02") + 0:99)

然后使用melt中的reshape2函数：

df2 <- reshape2::melt(df, id.vars="NAME", variable.name="date", value.name="modality")

最后将日期字符串转换为日期对象：

df2$date <- as.Date(df2$date)