[r] Adding a column to a data.frame