as.POSIXct não reconhece o formato da data = "% Y-% W"

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

Eu quero criar um objeto xts a partir do data.framedata onde as datas mantêm o formato ano-semana. Quando estou executando o código, as colunas assumem o formato 05/12/2016, incorreto e longe do que estou tentando obter.