Lo tengo.

La función cutree me da el número del cluster asignado

     cl <- cutree(foodclust, k = 5)

y con un cbind, puedo añadir el cluster al dataset

Gracias