这个也许行

还得有个转置！

果然可以，多谢高手

赞，原来还需要转置

补充一下：
一般来说，不管是dataframe还是matrix，如果行数远大于列数，用按列apply会稍快一点：
datNormed <- apply(dat, 2, function(x) x /dat[, 1])

如果要经常重复这一过程，原数据若是dataframe，用lapply会快很多：
dat[] <- lapply(dat, function(x) x/dat[[1]])     
或者：
datNormed <- as.data.frame(lapply(dat, function(x) x/dat[[1]]))

如果要经常重复这一过程，原数据若是matrix，就更直接了：
datNormed <- dat/dat[, 1]