transform関数を利用する
transform(追加する元のデータフレーム,列タイトル=c(追加データ))
(例)
>x <-data.frame(Age=c(50,50,70,60))
>x2<-transform(x,BW=c(50,45,55,55))
> x <-data.frame(Age=c(50,50,70,60))
> x
Age
1 50
2 50
3 70
4 60
> x2<-transform(x,BW=c(50,45,55,55))
> x2
Age BW
1 50 50
2 50 45
3 70 55
4 60 55