Для входных данных, у которых нет дня, вы можете просто добавить данный день недели, скажем, 1:
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, которая неверна и далека от того, чего я пытаюсь достичь.