gpt4 book ai didi

r - 为r中的每个组创建日期序列

转载 作者:行者123 更新时间:2023-12-04 14:26:15 25 4
gpt4 key购买 nike

我有一个看起来像这样的数据集:

      ID    created_at
MUM-0001 2014-04-16
MUM-0002 2014-01-14
MUM-0003 2014-04-17
MUM-0004 2014-04-12
MUM-0005 2014-04-18
MUM-0006 2014-04-17

我正在尝试引入新的列,该列将是开始日期和定义的最后一天之间的所有日期(例如,2015年7月12日)。我在 dplyr中使用了seq函数,但出现错误。
data1 <- data1 %>%
arrange(ID) %>%
group_by(ID) %>%
mutate(date = seq(as.Date(created_at), as.Date('2015-07-12'), by= 1))

我得到的错误是:

Error: incompatible size (453), expecting 1 (the group size) or 1



您能否建议一些更好的方法来在R中执行此任务?

最佳答案

您可以使用data.table从“created_at”到“2015-07-12”(按“ID”列)分组获取日期的sequence

 library(data.table)
setDT(df1)[, list(date=seq(created_at, as.Date('2015-07-12'), by='1 day')) , ID]

如果您需要 dplyr选项,请使用 do
 library(dplyr)
df1 %>%
group_by(ID) %>%
do( data.frame(., Date= seq(.$created_at,
as.Date('2015-07-12'), by = '1 day')))

如果您有重复的ID,则我们可能需要按 row_number()分组
df1 %>%
group_by(rn=row_number()) %>%
do(data.frame(ID= .$ID, Date= seq(.$created_at,
as.Date('2015-07-12'), by = '1 day'), stringsAsFactors=FALSE))

更新

根据@Frank的评价, tidyverse的新用法是
library(tidyverse)
df1 %>%
group_by(ID) %>%
mutate(d = list(seq(created_at, as.Date('2015-07-12'), by='1 day')), created_at = NULL) %>%
unnest()

如果是 data.table
setDT(df1)[, list(date=seq(created_at, 
as.Date('2015-07-12'), by = '1 day')), by = 1:nrow(df1)]

数据
df1 <- structure(list(ID = c("MUM-0001", "MUM-0002", "MUM-0003",
"MUM-0004",
"MUM-0005", "MUM-0006"), created_at = structure(c(16176, 16084,
16177, 16172, 16178, 16177), class = "Date")), .Names = c("ID",
"created_at"), row.names = c(NA, -6L), class = "data.frame")

关于r - 为r中的每个组创建日期序列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31873462/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com