R 如何创建一组渐进文本+；数字索引

我是R的新手。 我有一个每周时间序列数据集，日期列如下所示：

1/10/2004
1/17/2004
1/24/2004
1/31/2004
2/7/2004

.
.
1/3/2015
1/10/2015

我想创建一个如下所示的索引（W代表周）：

什么是正确的代码？我可以使用函数ts来完成吗？我试过这个：

data=ts(mydata,start=c(2004,1),freq=48)

但它不起作用

---

感谢您的帮助：）

您可以使用

POSIXlt

：它没有$week元素，但您可以使用模除：

 vec = c("1/10/2004", "1/17/2004", "1/24/2004")
 paste0("20", as.POSIXlt(vec, format="%m/%d/%Y")$year, "W", as.POSIXlt(vec, format="%m/%d/%Y")$yday %/% 7)
#[1] "20104W1" "20104W2" "20104W3"

 vec = c("1/10/2004", "1/17/2004", "1/24/2004")
 paste0("20", as.POSIXlt(vec, format="%m/%d/%Y")$year, "W", as.POSIXlt(vec, format="%m/%d/%Y")$yday %/% 7)
#[1] "20104W1" "20104W2" "20104W3"