# Coercing LHS to a list
expr_3$ID<-rownames(expr_3)
# OK
ids<-rownames(expr_3)
expr_4<-cbind(expr_3, ID=ids)
# Coercing LHS to a list
expr_3$ID<-rownames(expr_3)
# OK
ids<-rownames(expr_3)
expr_4<-cbind(expr_3, ID=ids)
原文：https://www.cnblogs.com/emanlee/p/8319794.html