Question

我试图创建字符串year,month几年（从199701到200612）。我可以使用for循环，有没有办法在不使用循环的情况下执行此操作？

我的目标：

#1997 01 to 2006 12
199701
199702
199703
199704
199705
199706
199707
199708
199709
199710
199711
199712
199801
.....

Answer 1

这应该有效

`dim<-`(outer(1997:2006,sprintf("%02d", 1:12),paste0),NULL)

Answer 2

另一种选择：

paste0(rep(1997:2006, each=12), sprintf("%02d", 1:12))

Answer 3

我们也可以使用expand.grid

 do.call(paste, c(expand.grid(1997:2006, sprintf('%02d', 
           1:12)), sep='' ) )

Answer 4

到目前为止发布的所有答案都包含对paste()和sprintf()的单独调用，而不是一次对sprintf()的调用。

以下解决方案是使用CJ()包中的data.table（交叉连接）函数：

library(data.table)
CJ(1997:2006, 1:12)[, sprintf("%4i%02i", V1, V2)]

  [1] "199701" "199702" "199703" "199704" "199705" "199706" "199707" "199708" "199709" "199710"
 [11] "199711" "199712" "199801" "199802" "199803" "199804" "199805" "199806" "199807" "199808"
 [21] "199809" "199810" "199811" "199812" "199901" "199902" "199903" "199904" "199905" ...

如何在不使用for循环的情况下将字符串连接为年份

4 个答案: