r - 将字符附加到数据框中列中的特定位置

Question

我有这样一个数据框

df <- data.frame(
       'Week' = c(27,28,29),
       'date' = c("2019-W (01-Jul)","2019-W (08-Jul)","2019-W (15-Jul)"))

我需要在日期列中的 W 之后附加周列

expecteddf <- data.frame(
       'Week' = c(27,28,29),
       'date' = c("2019-W27 (01-Jul)","2019-W28 (08-Jul)","2019-W29 (15-Jul)"))

我如何在 R 中实现这一点？

提前致谢!

Answer 1

您可以将 paste0 与 sub 组合使用，即

 paste0(sub(' .*', '', df$date), df$Week, sub('.* ', ' ', df$date))
#[1] "2019-W27 (01-Jul)" "2019-W28 (08-Jul)" "2019-W29 (15-Jul)"