更改 table 中的数据格式

Changing format of data in table

我从数据库 Data taken from database

中获取的名为 payments 的数据存储在下面的 table 中

现在我只需要更改 Week 列的格式,而不是 (201625) 到 (2016-25)。只是在两者之间添加连字符以使其更清楚地表明它是一年然后是一周。 当然我不能更改数据库中的数据所以我尝试使用

pdm_data [2] <- as.numeric(gsub("6","-",as.character(pdm_data[ ,2])))

但这只是查找要搜索的实际数字,而不是创建 space 然后在 space

中加入连字符

请帮助我真的很感激

尝试 stringr 包中的 str_replace

stringr::str_replace("201625", "(\d{4})(\d{2})", "\1-\2")
[1] "2016-25"