combine many columns from one dataframe into another dataframe using setDT

Question

I want to write a function

df<-read.table( text="Serial.ID name
1   a
2   c
3   f
4   h
5   u
", sep="\\t", header=T)

df1