Желаемый объект json недействителен. Вы должны преобразовать свой файл data.frame в список, прежде чем преобразовать его в объект json. Например, вы можете сделать это:
cat(toJSON(apply(dat,1,function(x)list(item =unname(x[1]),
Recos=unname(x[-1])))))
[
{
"item": 1,
"Recos": [ 22, 23 ]
},
{
"item": 34,
"Recos": [ 4, 87 ]
},
{
"item": 23,
"Recos": [ 7, 92 ]
}
]