Question

所以我有一个ID列表。

我想为列表中的每个id创建一个由一年中每个月的行组成的表。

我尝试在for循环中使用rbind，但这需要永远......就这样：

for (k in seq_along(members))
{
  for (i in seq(1,12))
  {
    df1<-rbind(df1, data.frame(MemYearMo=paste(members[k],"_",year,formatC(i,width=2,flag=0), sep="")))
  }
}

其中成员显然是我的id列表。

我想要的输出是： XXX_201701 XXX_201702 XXX_201703 。。。 XXX 201712

其中XXX是我的身份之一。

做这样的事情的最快方法是什么？

Answer 1

我不确定我是否了解您所需的输出，但您可以使用expand.grid生成成员ID与一年中不同月份的不同组合。

示例

df <- as.data.frame(expand.grid(members = 901:903, ym = 201701:201712)) df$MemYearMo <- paste(df$members, df$ym, sep = "_") df #> members ym MemYearMo #> 1 901 201701 901_201701 #> 2 902 201701 902_201701 #> 3 903 201701 903_201701 #> 4 901 201702 901_201702 #> 5 902 201702 902_201702 #> 6 903 201702 903_201702 #> ...(and so on)... #> 34 901 201712 901_201712 #> 35 902 201712 902_201712 #> 36 903 201712 903_201712

Answer 2

使用data.table和paste0，您可以这样做，假设您的ID是唯一的。

id <- as.data.table(letters)
id <- id[, .(output = paste0(letters, paste0("_2017", c(paste0(0, 1:9), 10:12)))), by = .(letters)]

Answer 3

使用rep：

id <- letters[1:10]
month <- 201701:201712
ids <- rep(ids, each=length(month))
months <- rep(months, length.out=length(id))
data.frame(id=ids, ym=months, id_ym = paste(ids, months, sep="_"))

给出

    id     ym    id_ym
1    a 201701 a_201701
2    a 201702 a_201702
3    a 201703 a_201703
...

为R中的每个ID为每个月添加一行

3 个答案: