library(xts)

data <- data.frame(year_week = c("2016-46", "2016-47", "2016-48"),
                   satisfaction = c(0.25, 0.45, 0.58))

data = xts(data[-1], order.by = as.POSIXct(data$year_week, format = "%Y-%W"))

у создать объект xts из data.framedata где даты сохраняют формат год-неделя. Когда я запускаю код, столбцы принимают форму 2016-12-05, которая неверна и далека от того, чего я пытаюсь достичь.