I know I can \*re\*name columns after I aggregate the data:

```
blubb <- aggregate(dat$two ~ dat$one, ...)
colnames(blubb) <- c("One", "Two")

```

Nothing wrong with that. But is there a way to aggregate and name the columns in one go? Sort of like:

```
blubb <- aggregate( ... , cols = c("One", "Two"))

```

It would be escpecially nice (and typo-proof) to somehow catch the original column names and do like:

```
blubb <- aggregate( ... , cols = c(name_of_dat$one, name_of_dat$two."_Mean"))

```