数据是这样：
gene<-data.frame(gene_ID=c(1,1,1,2,3,3,4),
                            u=c(23,34,35,45,45,45,67),
                           v=c(34,45,54,56,67,78,89),
                          w=c(45,56,56,78,89,89,79))
数据如上传图片
想得到这样的一个数据（相同ID的列所在行相加）
gene_id   u     v     w
1            92  133  157
2            45  56    78
3            90  145  178
4            67  89    79     


请大佬们帮个忙