squash function

Squash one column in a data.frame using other columns as id.