Forneça os dados para exemplo de uma maneira que facilite o CMR.

da <- read.table("clipboard", header=TRUE)

str(da)

require(reshape2)

dcast(data=da, formula=idquestionario~cod_cartao)

Dessa forma dá certo, só as colunas que não ficam na mesma ordem do formato que você colou mas é fácil mudar a ordem se isso for necessário.

À disposição.

Walmes.