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"))

Quiero crear un objeto xts a partir de data.framedata donde las fechas mantienen el formato año-semana. Cuando estoy ejecutando el código, las columnas toman la forma 2016-12-05, lo cual es incorrecto y está muy lejos de lo que estoy tratando de lograr.