如何用数据增加时间？

如何解决如何用数据增加时间？

我具有以下格式的数据

通过使用以下方式重塑它

data2 <- melt(data,id.vars=c('NAME_3'),variable.name = "T",value.name = "response")

我首先创建了要添加到表格中的日期序列。

date = seq(from = as.Date("2012-10-01"),to = as.Date("2012-10-04"),by = 'day')

然后将其与调整后的数据合并

merge(data2,date)

但是必填结果是

谢谢。

解决方法

我们需要按操作分组，即按“ NAME_3”分组后，使用seq选项创建“ {date”的日期from，并将length.out指定为{{1} }

n()

注意：当复制数量不相等时，这也可以正常工作

---

或者如果'Name_3'元素的行数是固定的，那么我们可以使用library(dplyr) data2 <- data2 %>% group_by(NAME_3) %>% mutate(date = seq(from = as.Date("2012-10-01"),length.out = n(),by = 'day'))

rep

这将返回与原始data2$date <- rep(date,each = nrow(data)) 数据集相同的order中的数据

,

我们可以使用回收技术在data2中添加日期列。

按Name_3排序数据，并将date分配为新列。

data2 <- data2[order(data2$Name_3),]
data2$date <- date