求矩阵中除以每一列的和
#利用两次转置的结果
res2 = t(t(df)/colSums(df))
sweep函数
res4 <- sweep(df,2,colSums(df),`/`)
scale函数
res5 = scale(df, center=FALSE, scale=colSums(df))
求矩阵中除以每一列的和
#利用两次转置的结果
res2 = t(t(df)/colSums(df))
sweep函数
res4 <- sweep(df,2,colSums(df),`/`)
scale函数
res5 = scale(df, center=FALSE, scale=colSums(df))